Desperate need of help with VBScript...

[Firefighter]

I need help with a fairly simple query, but I need it in VBScript and know NOTHING about VBS at all. Can someone help me with converting an ASP query to a VBScript???

<asp:SqlDataSource runat="server" ID="SqlDataSource1" ConnectionString="Dsn=DSNDATA;uid=userid;pwd=password" ProviderName="System.Data.Odbc" SelectCommand="SELECT MFITEM.ITITEM, MFITEM.ITPKR, MFITEM.ITDESC, MFITEM.ITPACK, MFITEM.ITSIZE, IVITEM.IVQOHC, IVITEM.IVQOHU, MFITEM.ITBKCS
 
FROM A10358DC.DTSDATA.IVITEM IVITEM, A10358DC.DTSDATA.MFITEM MFITEM
 
WHERE MFITEM.ITITEM = IVITEM.IVITM# AND ((MFITEM.ITPRBK='Y') AND (MFITEM.ITACTV='Y')  AND (IVITEM.IVQOHC&gt;0) OR (MFITEM.ITPRBK='Y') AND (MFITEM.ITACTV='Y') AND (IVITEM.IVQOHU&gt;0))
 
ORDER BY MFITEM.ITDESC">
                </asp:SqlDataSource>

This query is working now, but our new web platform want it in VBScript.

Before anybody freaks out, I have changed everything that is important or could pose a security risk.

[bdh]

Wow, this is a blast from the past. Thought I'd never see that horrid stuff again.

If I remember correctly, opening a data object syntax works something like this

dim connection_string : connection_string = _
"provider=microsoft.jet.oledb.4.0;" _
& "data source=c:\bla_bla.mdb"
dim conn : set conn = createobject("adodb.connection")
conn.open connection_string

and then to do a SELECT, something along these lines

dim sql : sql = "select id from table_name"
dim rs : set rs = createobject("adodb.recordset")
rs.cursorlocation = 3 'Use a client-side cursor
rs.open sql, conn, 3, 3

[tango]

Using regular VB you'd want something along the lines of this:

dim DB as ADODB.Connection
dim RS as ADODB.Recordset
dim sql as string

One of these commands, depending on whether you're using DSN or DSN-free connections, obviously put the appropriate driver in place if it's not Oracle
DB.Open "DSN=(whatever);Server=(whatever);Uid=(whatever);P wd=(whatever);"
DB.Open "Driver={Microsoft ODBC for Oracle};Server=(whatever);Uid=(whatever);Pwd=(what ever);"

sql = "select fields from tables etc"
set RS = DB.Execute(sql)

It's been a while since I did VBScript as opposed to regular VB although from what I recall if you just remove the type definitions and replace the first three lines with "dim DB, RS, sql" you should be OK.

[bdh]

Using regular VB you'd want something along the lines of this:

yours looks better than mine. I think for me it's been too long

[ikester7579]

Wow, this is a blast from the past. Thought I'd never see that horrid stuff again.

BDH, do you have nightmares about code? I get headaches thinking about it, and I know nothing anywhere near what you do. And I am dreading learning CSS style sheets, Which to you is probably like the old DOS.

[bdh]

BDH, do you have nightmares about code? I get headaches thinking about it, and I know nothing anywhere near what you do. And I am dreading learning CSS style sheets, Which to you is probably like the old DOS.

Not at all. Code I love ... favorites, in order of preference, being Perl, C, Pascal (which no one uses any more) & Assembler.

But most if the other "code wannabes" I can't stand. In order of dislike Java, JavaScript, VB & VBS, C#, anything to do with .NET!! and yes, PHP.

On all the tech boards I frequent I'm proudly anti-wannabee code and it ruffles a lot of feathers

[tango]

Not at all. Code I love ... favorites, in order of preference, being Perl, C, Pascal (which no one uses any more) & Assembler.

But most if the other "code wannabes" I can't stand. In order of dislike Java, JavaScript, VB & VBS, C#, anything to do with .NET!! and yes, PHP.

On all the tech boards I frequent I'm proudly anti-wannabee code and it ruffles a lot of feathers

Maybe not Turbo Pascal but I still positively love Delphi.

[bdh]

Maybe not Turbo Pascal but I still positively love Delphi.

Same here. In my "younger" days, spent a lot of time developing 805X firmware with this tool - http://www.ksc-softsys.com/pascalc.htm.

[tango]

Same here. In my "younger" days, spent a lot of time developing 805X firmware with this tool - http://www.ksc-softsys.com/pascalc.htm.

I remember the days when I taught myself 6502 assembly language and worked out how to play tunes with floppy disk drives by telling the heads to seek specific track sequences.

Somewhere along the line I wrote a piece of code that destroyed one floppy, then destroyed the other floppy, then crashed the computer. Unfortunately it wasn't supposed to do anything like that, and I never did work out exactly what I'd messed up in the code.