Kan squ ikke oprete bruge !!!
Jeg kan ikke oprette en bruger Why det er fucking trals !!! håber da en eller ander kan sige mig den fejl der er er er så koden ???<!-- #include virtual = "inc/dbconn.asp" -->
<!-- #include virtual = "inc/options.asp" -->
<!-- #include virtual = "inc/status.asp" -->
<!-- #include virtual = "inc/top.asp" -->
<%
response.buffer = true
if request("mode") = "opret" then
session("name") = Request.Form("name")
session("username") = Request.Form("username")
session("pass") = Request.Form("pass")
session("pass2") = Request.Form("pass2")
session("alder") = Request.Form("alder")
session("land") = Request.Form("land")
session("email") = Request.Form("email")
session("server") = Request.Form("server")
if Request.Form("name") = "" then Response.Redirect "createuser.asp?error=1" end if
if Request.Form("username") = "" then Response.Redirect "createuser.asp?error=2" end if
if Request.Form("pass") = "" then Response.Redirect "createuser.asp?error=3" end if
if not Request.Form("pass") = Request.Form("pass2") then Response.Redirect "createuser.asp?error=4" end if
if Request.Form("alder") = "" then Response.Redirect "createuser.asp?error=5" end if
if Request.Form("land") = "" then Response.Redirect "createuser.asp?error=6" end if
if Request.Form("email") = "" then Response.Redirect "createuser.asp?error=7" end if
if Request.Form("server") = "" then Response.Redirect "createuser.asp?error=8" end if
strsql= "Select * From user"
set rs = conn.execute(strsql)
strSQL = "SELECT * FROM user where username = '" & Request.Form("username") & "'"
Set rs = Conn.Execute(strSQL)
If not (rs.BOF Or rs.EOF) Then
response.redirect "createuser.asp?error=9"
End If
strSQL = "SELECT * FROM user"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3, 3
rs.AddNew
rs("name") = Request.Form("name")
rs("username") = Request.Form("username")
rs("pass") = Request.Form("pass")
rs("alder") = Request.Form("alder")
rs("land") = Request.Form("land")
rs("email") = Request.Form("email")
rs("server") = Request.Form("server")
rs("god") = "notselect"
rs("status") = "user"
rs("opretdato") = now()
rs("win") = "0"
rs("lose") = "0"
rs("team") = "notselect"
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
session("name") = ""
session("username") = ""
session("pass") = ""
session("pass2") = ""
session("alder") = ""
session("land") = ""
session("email") = ""
session("server") = ""
session("newusername") = Request.Form("username")
session("teamtjek") = "yes"
Response.Redirect "selectteam.asp"
else
error = request("error")
if error = 1 then Response.Write cb & cuser1 & scb end if
if error = 2 then Response.Write cb & cuser2 & scb end if
if error = 3 then Response.Write cb & cuser3 & scb end if
if error = 4 then Response.Write cb & cuser4 & scb end if
if error = 5 then Response.Write cb & cuser5 & scb end if
if error = 6 then Response.Write cb & cuser6 & scb end if
if error = 7 then Response.Write cb & cuser7 & scb end if
if error = 8 then Response.Write cb & cuser8 & scb end if
if error = 9 then Response.Write cb & cuser9 & scb end if
%>
<FORM action="createuser.asp?mode=opret" method=POST id=form1 name=form1>
<br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<tr>
<td>Name: </td>
</tr>
<tr>
<td>
<INPUT type="text" name=name value="<%=session("name")%>" size="20"></td>
</tr>
<tr>
<td>Username: </td>
</tr>
<tr>
<td>
<INPUT type="text" name=username value="<%=session("username")%>" size="20"></td>
</tr>
<tr>
<td>Password: </td>
</tr>
<tr>
<td>
<INPUT type="password" name=pass value="<%=session("pass")%>" size="20"></td>
</tr>
<tr>
<td>Password igen: </td>
</tr>
<tr>
<td>
<INPUT type="password" name=pass2 value="<%=session("pass2")%>" size="20"></td>
</tr>
<tr>
<td>Age: </td>
</tr>
<tr>
<td>
<INPUT type="text" id=text1 name=alder value="<%=session("alder")%>" size="20"></td>
</tr>
<tr>
<td>Contry: </td>
</tr>
<tr>
<td>
<INPUT type="text" id=text2 name=land value="<%=session("land")%>" size="20"></td>
</tr>
<tr>
<td>Email: </td>
</tr>
<tr>
<td>
<INPUT type="text" id=text3 name=email value="<%=session("email")%>" size="20"></td>
</tr>
<tr>
<td>Server: </td>
</tr>
<tr>
<td>
<INPUT type="text" name=server value="<%=session("server")%>" size="20"></td>
</tr>
<tr>
<td>
<INPUT type="submit" value="Submit" id=submit1 name=submit1></td>
</tr>
</table>
</center>
</div>
</FORM>
<% end if %><!-- #include virtual = "inc/bund.asp" -->
vis i skal bruge mere så sig lige til oki !!!
