"Thrane" <noreply@noreply.dk> skrev i en meddelelse
news:44f1c848$0$12650$edfadb0f@dread14.news.tele.dk...
>
> "bsn" <bsnsnabelaoncabledotdk> wrote in message
> news:44f1b34b$0$148$edfadb0f@dread11.news.tele.dk...
>>
>
>> Nok ikke helt...
>> Har du lidt kode til eksempel...
>> Bjarne
>>
>
> Har fundet en jeg benytter og ryddet den for, for dig, overflødig kode.
> Jeg kommenterer lige ind i mellem, startende med >>
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> <html>
> <head>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> <title>Formmail</title>
> </head>
>
> <body>
>
>>> Herfra og ned til <% End If %> vises efter mailen er blevet afsendt
>
> <% If request.QueryString("send" = "ok" Then %>
>
> <table width="780" border="0" cellspacing="0" cellpadding="0">
> <tr>
> <td width="485" align="center" valign="top"><table width="485" border="0"
> cellspacing="0" cellpadding="0">
> <tr>
> <td><img src="/gfx/spacer/trans.gif" width="13" height="13"></td>
> </tr>
> </table>
> <table width="465" border="0" cellpadding="0" cellspacing="0"
> class="txt11_w">
> <tr>
> <td><p class="txt13_w"><strong class="txt13_w">Din
> forespørgelse
> er nu sendt!</strong></p> </td>
> </tr>
> </table></td>
> </tr>
> </table>
>
> <% End If %>
>
> <table width="780" border="0" cellspacing="0" cellpadding="0">
> <tr>
> <td width="485" align="center" valign="top"><table width="485"
> border="0" cellspacing="0" cellpadding="0">
> <tr>
> <td><img src="/gfx/spacer/trans.gif" width="13" height="13"></td>
> </tr>
> </table>
>
> <form name="Booking" action="/formmail.asp" method="Post"
> style="margin:0;">
> <table width="485" border="0" cellspacing="0" cellpadding="0">
>
> <tr>
> <td><table width="485" border="0" cellpadding="2"
> cellspacing="0" class="txt11_w">
> <tr>
> <td width="96" height="24" align="right">
> Navn </td>
> <td width="357" height="24"><input name="Navn"
> type="text" size="40"></td>
> </tr>
>
> </table></td>
> </tr>
> </table>
>
> <table width="485" border="0" cellpadding="0" cellspacing="0"
> class="txt11_w">
> <tr>
> <td width="550" align="center"><input type="submit"
> name="AcceptSubmit" value=" Send "></td>
> </tr>
> <tr>
> <td> </td>
> </tr>
> </table>
> </form></td>
> </tr>
> </table>
>
>>> Gør at hvis der klikkes send, skal siden aktivere det efterfølgende, som
>>> i dette tilfælde er JMail, der sender en mail med indholdet...
>
> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then %>
> <%
> Set JMail = Server.CreateObject("JMail.SMTPMail")
>
>
> 'JMail.Priority = 1
> JMail.ServerAddress = "255.255.255.255:25"
> JMail.Sender = "mail@domæne.dk"
> JMail.ReplyTo = Request.Form("Email")
> JMail.Subject = "Mail fra " & Request.Form("Navn") & ""
> JMail.SenderName = "Afsendernavn"
> JMail.AddRecipient "mail@domæne.dk"
>
>
> JMail.ContentType = "text/html"
> JMail.body = "<html><head><style type=text/css><!--"
> JMail.body = JMail.Body & "body {font-family: Verdana, Arial, Helvetica,
> sans-serif; margin-left: 0px; margin-top: 0px; margin-right: 0px;
> margin-bottom: 0px;}"
> JMail.body = JMail.Body & ".text { font-size: 11px;}"
> JMail.body = JMail.Body & ".head {font-size: 17px; font-weight: bold;
> color: #990000; text-decoration: none;}"
> JMail.body = JMail.Body & ".linkred {color: #990000; text-decoration:
> none;}"
> JMail.body = JMail.Body & "a.linkred {color: #990000; text-decoration:
> none;}"
> JMail.body = JMail.Body & "a.linkred:hover {color: #990000;
> text-decoration: underline;}"
> JMail.body = JMail.Body & "--></style></head>"
> JMail.body = JMail.Body & "<body class=text>"
> JMail.body = JMail.Body & "<b>" & Request.Form("Navn") & "</b><br>"
> JMail.body = JMail.Body & "</body></html>"
>
> ' Send it...
> JMail.execute
> set JMail = nothing
>
Det er så her det går galt for mig...
Jeg sender til en betalingsgateway, som skal svare tilbage med en
"Godkendt"- eller "Afvist" side....
Jeg får IKKE retursvaret fra betalingsgateway(serveren)...
>>> Når JMail er færdig, går siden automatisk til samme side, men med
>>> værdien "send=ok" med, som så fortæller at det øverste af koden skal
>>> vises...
>
> response.Redirect("/formmail.asp?send=ok")
> %>
> <% End If %>
>
>
>
> </body>
> </html>
>
>
> Håber det er til at forstå.
> Og det kræver jo så at din server understøtter ASP.
Det gør den...
Bjarne