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