|
|
|
|
|
|
|
Home | Products/Prices | View Cart | Contact |
<% On Error Resume Next Set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "Provider=SQLOLEDB;uid=webcust;PWD=lennon;DATABASE=dropdown;SERVER=server12.windsornet.org" If Err.number <> 0 then TrapError Err.description End If set rs = cn.execute("Select url, boxtext From maindrop WHERE type1 = 's' order by url ASC") If Err.number <> 0 then TrapError Err.description End If %> |
