Problem med request
Hvorfor virker dette ikke:<%
if request(\"mode\") = \"send\" then
body=Request(\"Tekst\")
\'Alder = request.querystring(\"alder\")
\'Koen = request.querystring(\"koen\")
Alder = request.querystring(\"alder\")
Koen = request.querystring(\"koen\")
Postnummer = request.querystring(\"postnummer\")
\'Postnummer = request.querystring(\"postnummer\")
SQL = \"SELECT * from mailingliste where confirm=True\"
If Alder <> \"\" THEN
SQL = SQL & \" and Alder = \'\" & request.querystring(\"Alder\") & \"\'\"
end if
If Koen <> \"\" THEN
SQL = SQL & \" and Koen = \'\" & request.querystring(\"Koen\") & \"\'\"
end if
If Postnummer <> \"\" THEN
SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"Postnummer\") & \"\'\"
end if
\'on error resume next
Dim Telefon, sendt
set send = conn.execute( SQL )
if (send.BOF Or send.EOF) then
Response.write \"<center><font face=\'Verdana\' size=\'2\' color=\'000000\'>Ingen email-adresser er tilmeldt indtil videre!</h2>\"
end if
Response.write\"<tr><td><center>\"
do while not send.eof
on error resume next
ID2= send(\"ID2\")
Telefon= Send(\"Telefon\")
Operat= Send(\"Operat\")
sendt = Send(\"sendt\")
subject= Request(\"subject\")
BodyTextto = \"Hej \" & Navn & vbCrLf & vbCrLf & body
%>
