Download istedet for eksekvering?
Jeg har testet flere forskellige muligheder nu, men det ser ud som om at problemet er det samme uanset hvad jeg gør.Når jeg trykker på enten "Send" eller "Annullér", så spørger Windows om jeg vil downloade selve mailer-filen, dvs. "mailer.asp".
Hvordan får jeg formularen til at eksekvere selve "mailer.asp" så den bliver brugt til at sende formularen og ikke begynde at downloade selve scriptet?
www.ufodesign.dk/kontakt.htm
Mailer.asp sourcecode:
-----------------------------------------------------------------
<%@ Language=VBScript %>
<%
Dim sSubject
Dim sBody, sBodyHtml
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma"">Dato: " & Now & "</font><br>"
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma""><strong>Kunde oplysninger:</strong><br>"
sBodyHtml = sBodyHtml & "Navn: " & Chr(9) & Request.Form("Navn") & "<br>"
sBodyHtml = sBodyHtml & "Adresse: " & Chr(9) & Chr(9) & Request.Form("Adresse") & "<br>"
sBodyHtml = sBodyHtml & "Post nr.: " & Chr(9) & Chr(9) & Request.Form("Postnr") & "<br>"
sBodyHtml = sBodyHtml & "By: " & Chr(9) & Chr(9) & Chr(9) & Request.Form("By") & "<br>"
sBodyHtml = sBodyHtml & "Telefon nr.: " & Chr(9) & Request.Form("Telefon") & "<br>"
sBodyHtml = sBodyHtml & "Mobil nr.: " & Chr(9) & Request.Form("Mobil") & "<br>"
sBodyHtml = sBodyHtml & "E-mail: " & Chr(9) & Chr(9) & Request.Form("E-mail") & "<br>"
sBodyHtml = sBodyHtml & "Bemærkninger: " & Chr(9) & Chr(9) & Request.Form("Bemaerkninger") & "<br>" & "<br></font>"
'Overføre header til mail
sBodyMail = sBodyHtml
sBodyHtml = sBodyHtml & "<font size=""2"" face=""Tahoma""><strong>Din ordre:</strong></font>"
sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0""><font size=""2"" face=""Verdana""><strong>Varenr.:</strong></font></td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4""><font size=""2"" face=""Verdana""><strong>Varenavn:</strong></font></td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0""> <strong><font size=""2"" face=""Verdana"" align=""right"">Stk. pris kr.:</font></strong></td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4""><strong><font size=""2"" face=""Verdana"">Antal:</font></strong></td>"
sBodyHtml = sBodyHtml & "</tr></table>"
'Mail til UFODESIGN
Dim jmail
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "info@ufodesign.dk"
jmail.From = "info@ufodesign.dk"
jmail.FromName = "www.ufodesign.dk"
jmail.Subject = "Kundehenvendelse!"
jmail.HTMLBody = "<html><body>" & sBodyMail
jmail.appendHTML "</body></html>"
jmail.Send( "relay.pil.dk" )
jmail.Clear
jmail.Close
Set jmail = Nothing
jmail.Logging = true
jmail.silent = true
if not jmail.Send( "relay.pil.dk" ) then
Response.write "<pre>" & jmail.log & "</pre>"
else
' Response.write "Mail sent succesfully!"
end if
%>
-----------------------------------------------------------------
PS: mailer.asp er blot et lille asp-script som sørger for, at dataene i formularen bliver pænt stillet op i den e-mail som jeg modtager.
Mvh
Ulrik
