01.
<%
02.
Dim
Conn
03.
04.
Set
Conn = Server.Createobject(
"ADODB.Connection"
)
05.
Conn.Open
"DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=user; "
& _
06.
"pwd=password;database=dbname;option=16384;"
07.
08.
09.
str_sql =
" Select * From Admin "
10.
set rs = server.CreateObject(
"adodb.recordset"
)
11.
rs.open str_sql,Conn,1
12.
13.
response.Write(
"Hello "
&rs(
"AD_LOGIN"
))
14.
%>