<%
conn.Open "driver=MySQL; server=217.00.00.00; DSN=databas; uid=admin; pwd=password; database=databas"
%>
<%
Session("Username") = Request.Form("Username")
Session("Password") = Request.Form("Password")
Session("Password2") = Request.Form("Password2")
Session("Firstname") = Request.Form("Firstname")
Session("Lastname") = Request.Form("Lastname")
Session("Email") = Request.Form("Email")
%>
<%
If Not Request.Form("Password") = Request.Form("Password2") then
Response.Write "<font class=mark>Lösenorden överensstämmer inte med varandra!</font><font class=ie><br>Använd din webbläsares bakåtknapp för att gå tillbaka och ändra.</font>"
else
%>
<%
SQL="SELECT From Users WHERE Username='"& Request.Form("Username") &"'"
set rst=conn.execute(SQL)
%>
<%
if not rst.eof then
response.write "Användarnamnet är upptaget, gå tillbaka och försök igen </tr></table></td></tr></table>"
else
Response.Redirect "reg.asp"
End If
End If %>
Men jag får bara felmeddelandet:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/regcheck.asp, line 26
Jag gjorde om koden och fick det att funka, men nu så reagerar den inte om man använder ett Username som redan finns, utan går vidare
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "databas"
%>
<%
Session("Username") = Request.Form("Username")
Session("Password") = Request.Form("Password")
Session("Password2") = Request.Form("Password2")
Session("Firstname") = Request.Form("Firstname")
Session("Lastname") = Request.Form("Lastname")
Session("Email") = Request.Form("Email")
%>
<%
If Not Request.Form("Password") = Request.Form("Password2") then
Response.Write "<font class=mark>Lösenorden överensstämmer inte med varandra!</font><font class=ie><br>Använd din webbläsares bakåtknapp för att gå tillbaka och ändra.</font>"
End if%>
<%
SQL="SELECT * From Users WHERE Username= '"& Request.Form("Username") &"'"
set rst=conn.execute(SQL)
SQL1="SELECT * From Users WHERE Email= '"& Request.Form("Email") &"'"
set rs=conn.execute(SQL1)
%>
<%
if not rst.eof then
response.write "Användarnamnet är upptaget, gå tillbaka och försök igen </tr></table></td></tr></table>"
End if
if not rs.eof then
response.write "E-mail adressen är redan registrerad, gå tillbaka och försök igen </tr></table></td></tr></table>"
else
Response.Redirect "reg.asp"
End If %>
Nix det funkade inte. Jag måste skriva ut alla kolumner jag vill visa
"Select Username, Password, Location From Users" osv.
Annars hittar den inte
Jag kan heller inte skriva ut primärnyckeln:
"Select UserID From Users"
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80020009)
[Microsoft][ODBC Driver Manager]Drivrutinen kan inte hantera denna parameter.
/pm.asp
Du har installerat senaste MyODBC, eller? Kan vara någon bugg i ngn äldre version kanske... Verkar skumt att man inte kan skriva ut primärnyckeln heller...
Jag har använt MySQL rätt länge nu, och har aldrig varit med om sådana problem