Endnu engang tak for dine svar.
Nu kommer der følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 3.51 Driver][mysqld-4.1.11-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '@post.cybercity.dk' at line 1
/snartonline/medlemmer/retprofil.asp, line 43
Efter jeg har trykket på "Opdater"
Hele min kode ser sådan ud nu:
<%
<!--#include file="conn.asp"-->
SQL = "SELECT * FROM person WHERE EmailAddress='"& Session("EmailAddress") &"'"
Set rs = objConn.Execute(SQL)
if not rs.eof then
ID = rs("PersonID")
'end if
'set rs = nothing
PersonID = rs("PersonID")
EmailAddress= rs("EmailAddress")
GameName = rs("GameName")
IRLNavn = rs("IRLNavn")
Password = rs("Password")
Email2 = rs("Email2")
Alder = rs("Alder")
Weapon = rs("Weapon")
Map = rs("Map")
Quote = rs("Quote")
SteamID = rs("SteamID")
Telefon = rs("Telefon")
MSN = rs("MSN")
if request("action")="Update" Then
PersonID= PersonID
EmailAddress= Request.Form("EmailAddress")
GameName = Request.Form("GameName")
IRLNavn = Request.Form("IRLNavn")
Password = Request.Form("Password")
Email2 = Request.Form("Email2")
Alder = Request.Form("Alder")
Weapon = Request.Form("Weapon")
Map = Request.Form("Map")
Quote = Request.Form("Quote")
SteamID = Request.Form("SteamID")
Telefon = Request.Form("Telefon")
MSN = Request.Form("MSN")
SQL = "UPDATE person SET PersonID = " & PersonID &",EmailAddress= '" & EmailAddress & "',GameName= '" & GameName & "',IRLNavn= '" & IRLNavn & "',Password= '" & Password & "',Email2= '" & Email2 & "',Alder= '" & Alder & "',Weapon= '" & Weapon & "',Map= '" & Map & "',Quote= '" & Quote & "',SteamID= '" & SteamID & "',Telefon= '" & Telefon & "',MSN= '" & MSN & "' WHERE EmailAddress=" & Session("EmailAddress")
objConn.Execute(SQL) 'du manglede denne
objConn.Close
Set objConn = Nothing
Response.Write "Din profil er blevet opdateret"
Else
%>
<center><strong>Her kan du rette din profil.</strong></center><p>
<table border ="0" cellpadding="2" cellspacing="2" width="100%">
<form name='frmCreate' method='POST' action='default.asp?page=retprofil&action=Update'>
<tr><td>Brugernavn:
</td><td>
<input type="text" value="<% =rs("EmailAddress") %>" name="EmailAddress" size="40" disabled>
</td></tr>
<tr><td>
Password:
</td><td>
<input type="password" value="<% =rs("Password") %>" name="Password" size="40">
</td></tr>
<tr><td>
E-mail2*:
</td><td>
<input type="text" value="<% =rs("Email2") %>" name="Email2" size="40">
</td></tr>
<tr><td>
Spillernavn:
</td><td>
<input type="text" value="<% =rs("GameName") %>" name="GameName" size="40">
</td></tr>
<tr><td>
IRL navn:
</td><td>
<input type="text" value="<% =rs("IRLNavn") %>" name="IRLNavn" size="40">
</td></tr>
<tr><td>
Alder:
</td><td>
<input type="text" value="<% =rs("Alder") %>" name="Alder" size="40">
</td></tr>
<tr><td>
Favorit våben:
</td><td>
<input type="text" value="<% =rs("Weapon") %>" name="Weapon" size="40">
</td></tr>
<tr><td>
Favorit map:
</td><td>
<input type="text" value="<% =rs("Map") %>" name="Map" size="40">
</td></tr>
<tr><td>
Quote:
</td><td>
<input type="text" value="<% =rs("Quote") %>" name="Quote" size="40">
</td></tr>
<tr><td>
SteamID:
</td><td>
<input type="text" value="<% =rs("SteamID") %>" name="SteamID" size="40">
</td></tr>
<tr><td>
Telefonnr.**:
</td><td>
<input type="text" value="<% =rs("Telefon") %>" name="Telefon" size="40">
</td></tr>
<tr><td>
MSN***:
</td><td>
<input type="text" value="<% =rs("MSN") %>" name="MSN" size="40">
</td></tr>
<tr><td>
Betalt:
</td><td>
OM BETALING ER OK
</td></tr>
<tr><td> </td><td><input type=submit name=cmdSubmit value=Opdater bruger></td></tr>
</form>
</table>
<% End if
End if
%>
