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? :q
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