Hej.
På
http://www.patricia-brinch.dk/zelinski/dk/test.htm er jeg ved at
forsøge mig, med at lave en tilmelding til et nyhedsbrev (den er i den
lille blå boks).
Min form ser sådan ud:
--------------------------------------------------------------------------------------------------------
<form method=post action="SpawnedMailerAdd.asp"><input type=text
name="eaddy" value="din@email.dk"><br><br><input type=submit size=10
value="Tilmeld nyhedsbrev"></form>
--------------------------------------------------------------------------------------------------------
Når man trykker "Tilmeld nyhedsbrev", så udfører den min asp side, som
validerer e-mailen og evt. gemmer e-mailen i min database. Problemet
er så, at den tekst jeg udskriver i ASP koden, kommer på en blank
side, hvor jeg gerne vil have den ud, i min lille blå boks, da det
ellers ser lidt dumt ud.
Hvordan gør jeg dette?
Min spawnedMailerAdd.ASP er i bunden af dette, hvis det skulle have
interesse.
Jeg clearer min database regelmæssigt, indtil jeg har løst problemet.
Så i må gerne prøve at tilmelde jer, for at se hvad jeg mener. I skal
nok slippe for at få nyhedsbrevet.
Mvh. Brian
(Dette indlæg er X-postet, men uden FUT, da jeg ikke ved hvordan man
gør i AGENT).
<%
Dim eAddy
eAddy = Request.Form("eaddy")
response.write( eAddy )
if eAddy = "" then
response.write("E-mail adressen er ikke udfyldt!")
else
If InStr(1,eAddy,"@",vbTextCompare) = 0 then
response.write(" er ikke en valid e-mail adresse. Prøv igen.")
else
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../source225/SpawnedMailer.mdb"))
set rsMail = Server.CreateObject("ADODB.recordset")
rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy &
"'", conn
If not rsMail.EOF Then
If rsMail("MailingAddy") = eAddy Then
response.write(" er allerede tilmeldt nyhedsbrevet.")
End if
Else
mailSQL = "INSERT into MailingList (MailingAddy) VALUES ('" & eAddy &
"');"
conn.Execute mailSQL
response.write(" er nu tilmeldt nyhedsbrevet.")
End if
rsMail.close
conn.close
end if
end if
%>
--
http://www.patricia-brinch.dk - Min private babe side.
http://www.zelinski.dk - Indrek Zelinski Fanzone