expected end of statement....help....

chaoz83 · September 18th, 2003, 09:22 PM

i dun understand wat is wrong i've tried all ways but it juz cant work can someone tell me why?

Code:

<SCRIPT LANGUAGE="VBScript">

Sub cancelButt_OnClick
    window.close()
    Session("sessDate")=""
End Sub

Sub okButt_OnClick
dim rmaNo, dateTxt

    rmaNo = document.shipdate.callID.value
    selectedDay = document.shipdate.day.value
    selectedMonth = document.shipdate.month.value
    selectedYear = document.shipdate.year.value
    dateTxt = selectedYear & "-" & selectedMonth & "-" & selectedDay & rmaNo

dim svr, Db, UID, Pwd
dim conn, rs, query
dim rmaNum, customerID
dim exist = "false"

svr = "(local)"
db = "HEAT"
uid = "heat"
pwd = "heat11**"

query = "SELECT a.CallId, c.CustID FROM Detail a, Subset c WHERE a.CallId = c.CallId and c.CustID = '" & Request.Cookies("HSS") & "' "

set conn = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")

conn.ConnectionString = "PROVIDER=SQLOLEDB; DATA SOURCE='" & svr & "'; INITIAL CATALOG='" & db & "'; USER ID='" & uid & "'; PASSWORD='" & pwd & "';" 

conn.open server.mappath("HEAT")

rs.open query, conn, adOS, adLO

rs.MoveFirst

do until rs.EOF

rmaNum = rs("CallId")
customerID = rs("CustID")

if customerID = Request.Cookies("HSS") then
    exist = "true"
end if

rs.moveNext
loop

rs.close
conn.close


End Sub

</SCRIPT>

vinyl-junkie · September 21st, 2003, 06:03 PM

Nothing jumps out at me as being glaringly wrong. Try commenting out portions of the code and running it. Also add Response.Write and Response.End statements to see if your code is being executed to a certain point before it blows up. Debugging like that can be time consuming, but it usually exposes where the problem is.

Hope this helps.

Pat Wong
http://www.napathon.net/ - Music Around The World
For collecting tips, trade and want lists, album reviews and more.

Imar · September 22nd, 2003, 02:04 AM

Nothing wrong? Hmmm, it seems to me there is a big mix up between server side VBScript and client side VBScript.

Take a look at this:

Code:

<SCRIPT LANGUAGE="VBScript">

...

Sub okButt_OnClick
...
    rmaNo = document.shipdate.callID.value
    selectedDay = document.shipdate.day.value
    selectedMonth = document.shipdate.month.value
...
set conn = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")

AFAICS, the okButt_OnClick will fire at the client when a user presses a button. Then you retrieve stuff from local HTML form objects using document., which takes place at the client as well.

However, the Server.CreateObject runs at the server.

You'll need to change your coding logic so that the client side button submits the form to the server. At the server you can then use Request.Form("MyFormElement") to retrieve the values from the form and pass them to a database so you can retrieve records from the database based on these values.

Cheers,

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

jmss66 · September 23rd, 2003, 01:19 PM

The problem I see is you are issuing a command rs.MoveFirst. Your query might not be retrieving any record. If you are not sure that your SQL statement is populating the recordset, you might want to display the records so you know that the movefirst command is not the one giving you the problem.

Ex:

If not rs.eof then
  rs.movefirst
  response.write <fieldname> & <br>
Else
  response.write "End of File"
End If

Judy
  response.write