Hej
Min kode er således:
<%
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
Response.Redirect"fejl.asp"
End If
%>
<%
Response.Buffer=False
Response.ExpiresAbsolute = #1980-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
Response.AddHeader "cache-control", "no-store"
Response.CacheControl = "Private"
%>
<%response.Charset="ISO-8859-1"%>
<%
If Request.Form("action") = "Send meddelelse" Then
Navn = request.form("Navn")
Mail = request.form("Mail")
Emne = request.form("Emne")
Meddelelse = request.form("Meddelelse")
if Len(Navn) > 0 and Len(Mail) > 0 and Len(Emne) > 0 and Len(Meddelelse) > 0 then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb")
SQLStmt = "INSERT INTO XXX (Navn,Mail,Emne,Meddelelse) Values (" & "'" & Navn & "','" & Mail & "','" & Emne & "','" & Meddelelse & "')"
Set RS = Conn.Execute(SQLStmt)
Conn.Close
Set Conn = Nothing
resultat = "<b>Tak for dit indlæg</b>"
else
resultat = "<b>Alle felter skal udfyldes</b>"
end if
end if
%>
det er lidt tilfældigt hvornår den smider æ ø og å, men mange gange sker det hvis jeg gemmer en ny version, - og det kan være at jeg bare har laven en tom linie
/maddog