ACCESS
on error resume next
set conn=server.createobject("ADODB.CONNECTION")
db="Data/data.mdb"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath(db)
sql="select * from adnim_ad where ad_id=9"
rs.open sql,conn,1,3
response.Write(rs("ad_name"))
SQL
set conn=server.CreateObject("adodb.connection")
conn.provider="sqloledb"
ProvStr ="driver={SQL server};server=(local);uid=sa;pwd=;database=33"
Conn.open ProvStr
set rs=server.createobject("adodb.recordset")
sql="select * from adnim_ad where ad_id=9"
rs.open sql,conn,1,3
response.Write(rs("ad_name"))