JavaScript to VBScript translation 1

[TheConeHead]

Would anyone know how to do the following in VBScript?
Thanks for helping a brother out!
----------
var conn = Server.CreateObject("ADODB.Connection"
conn.ConnectionString="Driver={SQL Server};Server=xxx;UID=yyy;PWD=zzz";
conn.Open();
rs=Server.CreateObject("ADODB.RecordSet"
rs.CursorType=0;
rs.CursorLocation=3;
rs.LockType=1;
sSQL="Select * From aaa";
rs.Open(sSQL,conn);
----------
while (!rs.eof) {
    if (counter == 0) {
       .....
    }
rs.MoveNext();
}

 

[MrGreed]

dim Conn,Rs,sSQL,iCounter

set Conn = Server.CreateObject("ADODB.Connection&quot
Conn.ConnectionString="Driver={SQL Server};Server=xxx;UID=yyy;PWD=zzz"
Conn.Open()
Rs=Server.CreateObject("ADODB.RecordSet&quot
Rs.CursorType=0
Rs.CursorLocation=3
Rs.LockType=1
sSQL="Select * From aaa"
Rs.Open sSQL,Conn
----------
do while not rs.eof {
if iCounter =0 then

end if
Rs.MoveNext()
loop

With VBScript and any language ALWAYS declare your variables.
"did you just say Minkey?, yes that's what I said."

MrGreed

http://www.pastame.com

 

[MrGreed]

Missed one thing get rid of "{" eof { "did you just say Minkey?, yes that's what I said."

MrGreed

http://www.pastame.com

 

[TheConeHead]

I won't be trying it out till later but I'll go ahead and star ya for the effort now...

 

[TheConeHead]

for the sake of the string- it needs this correctio n as well:

set Rs=Server.CreateObject("ADODB.RecordSet&quot

set being the missing item from the original post