Advertisement
Advertisement
| 07.25.2008 at 01:05PM PDT, ID: 23596676 | Points: 250 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: |
set mConn = server.CreateObject("ADODB.Connection")
mConn.Open "DSN=AS400;UID=hiddencode;PWD=hiddencode"
mySQL = "SELECT DISTINCT CMBTKY,CMNAME " _
& "FROM CMP " _
& "WHERE (CMDTR = '" & territorynumber & "') " _
& "AND CMDTMM = '0' " _
& "ORDER BY CMNAME,CMBTKY "
set objRec = server.CreateObject("ADODB.Recordset")
objRec.Open mySQL,mConn,adOpenKeyset,adLockOptimistic
if not objRec.EOF then
do while not objRec.EOF
DISPLAYS RECORDS....
objRec.MoveNext
loop
end if
objRec.Close
|