Opretter tom post
If ID = "addmember" ThenstrNick = Request.Form("nick")
strStatus = Request.Form("status")
strNavn = Request.Form("navn")
strAlder = Request.Form("alder")
strBopael = Request.Form("bopael")
strFormerClans = Request.Form("formerclans")
strEmail = Request.Form("email")
strQuote = Request.Form("quote")
strKodeord = Request.Form("kodeord")
If Trim(strNick) & "x" = "x" then strNick = Null
If Trim(strStatus) & "x" = "x" then strStatus = Null
If Trim(strNavn) & "x" = "x" then strNavn = Null
If Trim(strAlder) & "x" = "x" then strAlder = Null
If Trim(strBopael) & "x" = "x" then strBopael = Null
If Trim(strFormerClans) & "x" = "x" then strFormerClans = Null
If Trim(strEmail) & "x" = "x" then strEmail = Null
If Trim(strQuote) & "x" = "x" then strQuote = Null
If Trim(strKodeord) & "x" = "x" then strKodeord = Null
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../XXXXXXX.mdb")
Conn.Open DSN
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM medlemmer WHERE Id=0", conn,1,3
rs.AddNew
rs("nick") = strNick
rs("status") = strStatus
rs("navn") = strNavn
rs("alder") = strAlder
rs("bopael") = strBopael
rs("formerclans") = strFormerClans
rs("email") = strEmail
rs("quote") = strQuote
rs("kodeord") = strKodeord
rs.Update
rs.Close
Conn.Close
Set Conn = Nothing
Response.write "Nyt member er nu oprettet i databasen..."
Response.write "<br><br><i><a href='index2.asp'>Tilbage</a></i>"
End if
Når jeg bruger flg. ASP kode, opretter den en tom post i min database? Hvorfor?
