Nu har jag strulat till något med databaskopplinge skulle jag tro, men grejen är ju att det överhuvudtaget inte funkar.
Min kod:
<% Response.buffer = TRUE %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> If you see this, you really need broadband..... </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<%
Dim User, Pass
User = Request.Querystring("user")
Pass = Request.Querystring("pass")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={mySQL ODBC 3.51 Driver};Server=min-ip;Port=3306;Option=131072;Database=min-db;Uid=mitt-namn;"
list = "SELECT * FROM members WHERE usery='" & user & "' AND pass='" & pass & "' "
Set rs = Connect.Execute(list)
If rs.EOF Then
Session("logged_status") = FALSE
Response.redirect("errorpass.asp")
Else
Session("inloggad") = 1
Response.redirect("loggedin.asp")
End If
Connect.close
%>
<BODY>
</BODY>
</HTML>
Mitt felmess:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/bulletboy/login.asp, line 16
Speciferar line 16, databaskopplingen.
Är det något äss som kan se vad jag missat?
Tack
Ditt ip är ju 81.224.191.93, men du sitter säkert på ett nätverk där mysql servern har det ipet 192.168.111.163 (ev. den dator du sitter på). Har jag rätt?
<!--Include File="Adovbs.Inc"-->
<% Response.buffer = TRUE %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> If you see this, you really need broadband..... </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<%
Dim User, Pass
User = Request.Querystring("user")
Pass = Request.Querystring("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={mySQL ODBC 3.51 Driver};Server=min-ip;Port=3306;Option=131072;Database=min-db;Uid=mitt-namn;"
list = "SELECT * FROM members WHERE usery='" & user & "' AND pass='" & pass & "' "
Set rs = Connect.Execute(list)
If rs.EOF Then
Session("logged_status") = FALSE
Response.redirect("errorpass.asp")
Else
Session("inloggad") = 1
Response.redirect("loggedin.asp")
End If
Conn.close