<%@ CodePage=1250 Language="VBScript"%>
<% Option Explicit %>
<%
session.CodePage = 1250
'Response.CodePage = 65001
Response.CharSet = "latin1"
dim conn, rdate
rdate = now
set conn = server.CreateObject("adodb.connection")
%>
<%
conn.open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=solusd;" & _
"USER=root;" & _
"PASSWORD=*****"
dim rs, sqlrs
set rs = server.CreateObject("adodb.recordset")
%>
<%
sqlrs = "SELECT NOW() AS DTFld"
rs.CursorLocation=3
rs.open sqlrs, conn, 0, 1
%>
DatTime Test BUG33609
Queue by MySQL & ASP
| DatTim |
|
|
<% if rs.eof = true then %>
| Nodata |
<% end if %>
<%
%>
<% while rs.eof = false %>
| <% =rs("DTFld")%> |
<%
rs.movenext
wend
%>
<%
rs.close
set rs = nothing
%>
<%
conn.close
set conn = nothing
%>