I'm getting the following error...
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/consoletopmainie.asp, line 39
I just transferred from Access to MySQL
and I'm getting errors. I think it might have something to do with the
connection script but the script works fine on another page. Could it
be the MySQL table structure itself? It's a datetime field.
Anyway, here's my coding...
(connection script)
<%
Dim conn, source
Source = "DRIVER={MySQL ODBC 3.51
Driver};Server=192.168.14.188;UID=vgameforcecom;PWD=maggie;database=vgameforcecom;PORT=3306;Op tion=16386"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Source
%>
Line 39 is the last line here
<%
Option Explicit
Dim sql,username,rscurrent,id,points,rsUser,rsusercount,rstheme,rsMessages,newcount,rank,stage1,total,co nsole,keywordstowrite
console="gf"
id=request.querystring("id")
username = Request.Cookies("username")
total=0
%>
<!--#include file="connie.asp"-->
<%
sql = "SELECT Messages.* FROM Users INNER JOIN Messages ON
Users.username = Messages.sentfrom WHERE sendto = '" & username
& "' ORDER BY datesent DESC"
Set rsMessages = Server.CreateObject("ADODB.Recordset")
rsMessages.Open sql, conn, 3, 3
sql = "SELECT * FROM usercount"
Set rsusercount = Server.CreateObject("ADODB.Recordset")
rsusercount.Open sql, conn, 3, 3
sql = "SELECT * FROM theme WHERE username = '" & username & "'"
Set rstheme = Server.CreateObject("ADODB.Recordset")
rstheme.Open sql, conn, 3, 3
sql = "SELECT * FROM users"
Set rscurrent = Server.CreateObject("ADODB.Recordset")
rscurrent.Open sql, conn, 3, 3
%>
<%'If the username cookie is set, they must have logged in, so get their details from the database
if username <> "" then
if username = "SL500" then
response.redirect("http://www.google.com")
end if
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
rsuser("lol")=now()
rsUser.Update
|