En af mine update sætninger ser sådan ud: strSQL = "UPDATE user SET navn='" & Request.Form("navn") & "', mail='" & Request.Form("mail") & "' WHERE ID=" & TRIM(Request.QueryString("id"))
If Request.Form("Gem") <> "" Then strError = "" strNavn = Trim(Request.Form("Navn")) strEmail = Trim(Request.Form("Email")) strOverskrift = Trim(Request.Form("Overskrift")) strKommentar = Trim(Request.Form("Kommentar")) If Len(strNavn) = 0 Then strError = "<li>Du skal skrive dit navn!</li>" ElseIf validateEmail(strEmail) = False Then strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>" ElseIf Len(strKommentar) = 0 Then strError = "<li>Du skal skrive en kommentar!</li>" End If If Len(strError) = 0 Then Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)" rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic If (rs.BOF Or rs.EOF) Then rs.AddNew rs("Navn") = Server.HTMLEncode(strNavn) rs("Email") = Server.HTMLEncode(strEmail) rs("Overskrift") = Server.HTMLEncode(strOverskrift) rs("Kommentar") = Server.HTMLEncode(strKommentar) rs("Dato") = Now() rs.Update End If rs.Close Set rs = Nothing Else strError = "<p><ul style='color:#FF0000'>" & strError & "</ul></p>" strMode = "add" End If End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.