<%
dim conn,sql,rs
set conn = server.createobject("adodb.connection") On Error Resume Nextsql="DRIVER={MySQL ODBC 5.1 Driver};database=data001;server=localhost;uid=dataname;password=datapass"
conn.open sql
If Err Thenerr.Clear
Set Conn = Nothing
Response.Write "error"
Response.End
End If
%>
dim conn,sql,rs
set conn = server.createobject("adodb.connection") On Error Resume Nextsql="DRIVER={MySQL ODBC 5.1 Driver};database=data001;server=localhost;uid=dataname;password=datapass"
conn.open sql
If Err Thenerr.Clear
Set Conn = Nothing
Response.Write "error"
Response.End
End If
%>
