Kommer aldrig ind i if-satsen.
Er der nogen der er vågne?Kan ikke finde fejlen her, jeg kommer aldrig ind i if.
<%
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("jourblomman.mdb")
conn.Open DSN
strSQL = "Insert into rabatten (status,name,birthday,address,zipcode,city,email) values('"& request.form("status") &"','"& request.form("fullname")&"','"& request.form("birthday")& "','"& request.form("address")& "','"& request.form("zipcode")& "','"& request.form("city")& "','"& request.form("email")& "')"
'response.write strSQL
' SQL sætning eksekveres
Conn.Execute(strSQL)
dim strnews
strnews = request.form("news")
if strnews = "Ja tack. Jag vill ha ert nyhetsbrev" then
strSQL2 = "Insert into maillist (name,address,zipcode,city,email) values('"& request.form("fullname")&"','"& request.form("address")& "','"& request.form("zipcode")& "','"& request.form("city")& "','"& request.form("email")& "')"
'response.write strSQL2
'response.write strnews
' SQL sætning eksekveres
Conn.Execute(strSQL2)
end if
response.redirect("rabatten_tack.asp?news="&strnews&"")
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
