Postkortscript der ikke sender....
Hej Allle.Jeg har et problem med et postkort script der er lavet af Søren Grenz og modificeret af undertegnede.
Problemet er, at jeg ikke får sendt mail ud, der skrives i databasen.
Scriptet er delt op i 2:
code_lib.asp og default.asp hvor code_lib inkluderes i default.asp
CODE_LIB.ASP:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\postkort.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
bgfarve = \"#ffffff\"
tekstfarve = \"#000000\"
linkfarve = \"#000080\"
vlinkfarve = \"#000080\"
alinkfarve = \"#000080\"
overskrift = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"6\"\" COLOR=\"\"#aaaaaa\"\"><STRONG>\"
fedstor = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"3\"\"><STRONG>\"
fednormal = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\"><STRONG>\"
normal = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\">\"
fejlfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"4\"\" COLOR=\"\"#FF0000\"\"><STRONG>\"
fe = \"</STRONG></FONT>\"
img_height = \"85\"
img_width = \"118\"
url = \"http://www.webzap.dk/kvikpost/postkort/view_card.asp\"
billedmappe = \"kort\"
if Request.Form(\"mode\") = \"sendkort\" then
If not request.form(\"modtagernavn\") = \"\" AND not request.form(\"modtageradresse\") = \"\" AND not request.form(\"modtagerpostnummer\") = \"\" AND not request.form(\"modtagerby\") = \"\" AND not request.form(\"modtagerland\") = \"\" AND not request.form(\"afsendernavn\") = \"\" AND not request.form(\"afsenderemail\") = \"\" AND not request.form(\"besked\") = \"\" AND not request.form(\"billednavn\") = \"\" then
modtagernavn = replace (request.Form(\"modtagernavn\"),\"\'\",\"`\")
modtagerby = replace (request.Form(\"modtagerby\"),\"\'\",\"`\")
besked = replace (request.Form(\"besked\"),\"\'\",\"`\")
SQL = \"INSERT INTO kort (modtagernavn, modtageradresse, modtagerpostnummer, modtagerby, modtagerland, afsendernavn, afsenderemail, billednavn, besked ) values (\'\"& Request.Form(\"modtagernavn\") &\"\', \'\"& Request.Form(\"modtageradresse\") &\"\', \'\"& Request.Form(\"modtagerpostnummer\") &\"\', \'\"& Request.Form(\"modtagerby\") &\"\', \'\"& Request.Form(\"modtagerland\") &\"\', \'\"& Request.Form(\"afsendernavn\") &\"\', \'\"& Request.Form(\"afsenderemail\") &\"\', \'\"& Request.Form(\"billednavn\") &\"\', \'\"& Request.Form(\"besked\") &\"\')\"
conn.execute (SQL)
SQL = \"SELECT * FROM kort where (from_mail=\'\"& Request.Form(\"modtagernavn\") &\"\' AND from_name=\'\"& Request.Form(\"modtageradresse\") &\"\' AND to_mail=\'\"& Request.Form(\"modtagerpostnummer\") &\"\' AND to_name=\'\"& Request.Form(\"modtagerby\") &\"\' AND to_name=\'\"& Request.Form(\"modtagerland\") &\"\' AND to_name=\'\"& Request.Form(\"afsendernavn\") &\"\' AND to_name=\'\"& Request.Form(\"afsenderemail\") &\"\' AND billednavn=\'\"& Request.Form(\"billednavn\") &\"\' AND besked=\'\"& Request.Form(\"besked\") &\"\')\"
SET check = Conn.Execute( SQL )
mail_besked = \"Der er sendt et postkort til dig fra \"& check(\"afsendernavn\") & vbCrLf & vbCrLf &\"Gå til \"& url &\"?id=\"& check(\"id\") &\" for at læse det.\"
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.webzap.dk\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"postkort@kvikpost.com\"
JMail.Subject = \"postkort fra kvikpost\"
JMail.AddRecipient = \"sm@webzap.dk\"
JMail.Body = mail_besked
JMail.Priority = 3
JMail.Execute
kort_sendt = \"ok\"
else kort_sendt = \"fejl\"
end if
end if
%>
<html>
<head>
<title>Send e-card</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.kvikpost.com/kvikpost.css\">
<script language=\"JavaScript\" src=\"barkode.js\"></script>
</head>
<body>
<script>
document.write(menubar)
</script>
DEFAULT.ASP:
<%
REM Postkort er kodet til http://netcoders.dk af
REM Søren Grenz - soren@grenz.dk og modificeret af S. Mathiesen
%>
<!--#INCLUDE FILE =\"code_lib.asp\" -->
<div align=\"center\">Send et e-card til en du holder af.<br>
Det bliver sendt direkte til modtagerens e-mailadresse. Det er derfor<br>
vigtigt at <b>alle</b> udfyldes, så modtageren kan se hvor det kommer fra.</div>
<div align=\"center\">
<%
if kort_sendt = \"ok\" then
Response.Write \"Dit postkort sendes til modtageren ved først kommende postafgang<br><a href=\'/kvikpost/postkort/\'>Tilbage</a>\"
elseif kort_sendt = \"fejl\" then
Response.Write \"<span class=\'fejlfont\'><img src=\'udr.gif\' alt=\'Du har måske glemt at vælge et billede\'> Alle felter SKAL udfyldes og billede SKAL vælges!</span>\"
end if
if kort_sendt <> \"ok\" then
%>
</div>
<form action=\"default.asp\" method=\"post\">
<input type=\"hidden\" name=\"mode\" value=\"sendkort\">
<div style=\"width:100%;text-align:center\">
<div class=\"kant\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"left\">
<%
taller = 0
dirtowalk = billedmappe
Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(server.mappath(dirtowalk))
Set fc = f.Files
For Each whatever in fc
if taller = 0 then
Response.Write \"<tr>\"
end if
%>
<td align=\"center\">
<a href=\"<% = billedmappe %>/<% = whatever.name %>\" target=\"_blank\"><img border=\"0\" alt=\"Se billedet et et større format\" src=\"<% = billedmappe %>/<% = whatever.name %>\" width=\"<% = img_width %>\" height=\"<% = img_height %>\"></a><br>
<input type=\"radio\" name=\"billednavn\" value=\"<% = whatever.Name %>\" <% if Request.Form(\"billednavn\") = Whatever.Name then Response.Write \"checked\" %>></td>
<%
if taller = 2 then
Response.Write \"</tr>\"
taller = 0
else
taller = taller + 1
end if
Next
%>
</table>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"3\">
<tr>
<td>Modtagerens Navn:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"modtagernavn\" <% if Request.Form(\"modtagernavn\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"modtagernavn\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Modtagerens adresse:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"modtageradresse\" <% if Request.Form(\"modtageradresse\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"modtageradresse\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Modtagerens postnummer:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"4\" name=\"modtagerpostnummer\" <% if Request.Form(\"modtagerpostnummer\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"modtagerpostnummer\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Modtagerens By:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"modtagerby\" <% if Request.Form(\"modtagerby\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"modtagerby\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Modtagerens land:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"modtagerland\" <% if Request.Form(\"modtagerland\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"modtagerland\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Afsenderens navn:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"afsendernavn\" <% if Request.Form(\"afsendernavn\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"afsendernavn\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Afsenderens e-mail:</td>
</tr>
<tr>
<td><input type=\"text\" size=\"25\" name=\"afsenderemail\" <% if Request.Form(\"afsenderemail\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"afsenderemail\") &\"\"\"\" %>></td>
</tr>
<tr>
<td>Teksten på dit e-card</td>
</tr>
<tr>
<td><textarea cols=\"27\" rows=\"5\" name=\"besked\"><% if Request.Form(\"besked\") <> \"\" then Response.Write Request.Form(\"besked\") %></textarea>
</td>
</tr>
<tr>
<td align=\"right\"><input class=\"knapper\" type=\"reset\" value=\"Slet felter\"> <input class=\"knapper\" type=\"submit\" value=\"Send e-card\"></td>
</tr>
</table>
</div></div>
<% end if %>
</form>
</body>
</html>
Mvh.
S. Mathiesen
