translate to asp/vbscript 2

[TheConeHead]

Can someone translate the following asp/jscript to asp/vbsxcript?

conn = Server.CreateObject("ADODB.Connection");
conn.Open(Application("CONN_STR")="Provider=SQLOLEDB.1;Persist Security Info=False; User ID=uid; Password=pword; Initial catalog=db; Data Source=ip");

inSQL = "INSERT into tbl(field1, field2) VALUES ('"+var1+"','"+var2+"')";
conn.execute(inSQL);

 

[steven290]

set conn = Server.CreateObject("ADODB.Connection")
conn.Open("Provider=SQLOLEDB.1;Persist Security Info=False; User ID=uid; Password=pword; Initial catalog=db; Data Source=ip")

inSQL = "INSERT into tbl(field1, field2) VALUES ('"&var1&"','"&var2&"')"
conn.execute(inSQL)

 

[Sheco]

You don't need brackets around method calls unless you use the Call operator.

You don't need semicolons at the end of statements.

Use & instead of + for string concatenation.

Also your call to conn.open is all screwed up, it wont work in either language.

Try this:

conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False; User ID=uid; Password=pword; Initial catalog=db; Data Source=ip"

inSQL = "INSERT into tbl(field1, field2) VALUES ('" & var1 & "','" & var2 & "')"

conn.execute inSQL

Or This:

conn = Server.CreateObject("ADODB.Connection")

conn.Open Application("CONN_STR")

inSQL = "INSERT into tbl(field1, field2) VALUES ('" & var1 & "','" & var2 & "')"

conn.execute inSQL

 

[Sheco]

Oh, I missed the most obvious. You need to use SET with objects.


[red]SET[/red] conn = Server.CreateObject("ADODB.Connection")

 

[hithere]

just a thought regarding connections. if this is a database you're going to be calling often, it might be a good idea for you to create a functions page and do an include at the top of your page so you can make the call without having to re-type the connection everytime.

"Where's the Ka-Boom? There's supposed to be an Earth-shattering Ka-Boom!"
Marvin the Martian

 

[Sheco]

Or like this if you like to use Call

set conn = Server.CreateObject("ADODB.Connection")

Call conn.Open(Application("CONN_STR"))

inSQL = "INSERT into tbl(field1, field2) VALUES ('" & var1 & "','" & var2 & "')"

Call conn.execute(inSQL)

This assumes that your Application variable named CONN_STR was already set, if not you've gotta type it out.

 

[steven290]

you can do

conn.Open(Application("CONN_STR"))

without using the call method

 

[Sheco]

Ah, must be thinking plain VB

 

[steven290]

i believe that rule is for subroutines