<%
Dim connectstr
Dim oConn
Dim oRS
Response.CodePage = 950
Response.CharSet = "utf8"
connectstr = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=ABC.net; DATABASE=ABC; UID=ABC;PASSWORD=ABC;charset=utf8"
%>
Ivey Survey
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr
qry = "SELECT * FROM QS2Questions WHERE Section ='1'"
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
while not oRS.EOF
%>
<%=oRS("Question")%> |
<%
oRS.movenext
wend
oRS.close
end if
Set oRs = nothing
Set oConn = nothing
%>
|