|
|
|
|
|
|
| <% On Error Resume Next Set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "Provider=SQLOLEDB;UID=webcust;PWD=bigcap59;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 %> | |
