VBscript error in update script.

[sthmpsn1]

I am getting the following error. Can someone tell me why I would be getting this error?

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/am1st/MyStuff/updatetest/maintain1.asp, line 50, column 6
dim x = 1
-----^

Here is the code

%
if request("Selected2&quot = "1" Then
dbrs2.movefirst
dim x = 1 // This is line 50
do while NOT dbrs2.EOF

''dbrs2("date&quot=request("date" & x)
dbrs2("hour&quot=request("hour" & x)
''dbrs2("code&quot=request("code" & x)
dbrs2.update
dbrs2.movenext
loop
%>

 

[JuanitaC]

Are you sure you can declare and instantiate your variable on one line? Try splitting it into two statements and see if that helps:

Dim x
x=1