27. februar 2002 - 12:28Der er
14 kommentarer og 1 løsning
ASP-mail
Da jeg har fået ny udbyder, kan jeg ikke mere bruge min cdont mail. Er der evt. en der vil omskrive nedenstående cdont til ASPMAIL. Kan ikke selv er nybegynder.
<% @language="VBSCRIPT" %> <% ' SEND EMAIL TIL MIG
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
'Sjekker om mail er sendt, hvis ikke vises en feilmelding if custMail.SendMail then Response.Write "<p><b>Følgende epost ble sendt den: " & Now & "</b></p>" Response.Write custBody
else Response.Write "Mail send failure. Error was " & custMail.Response end if
kommentar til tniels Jeg får følgende fejl når jeg forsøger at køre aspmail: Microsoft VBScript compilation error '800a0401' Expected end of statement /post.asp, line 23 shopMail.AddRecipient="John","john@******.dk" ----------------------------^
det ser ud som om det virker nu, jeg får ingen fejl, men jeg får ingen mail retur. Jeg har prøvet med både post og get. Er der en fejl i det der sender eller mangler der noget.
Det tror jeg ikke. Prøv eventuelt at indsætte: shopMail.RemoteHost = "post.tele.dk" og custMail.RemoteHost = "post.tele.dk"
i linierne efter: shopMail.FromAddress="salg@******.dk" og custMail.FromAddress="salg@*******.dk"
Hvis man ikke indsætter en "RemoteHost", vil den automatisk benytte den smtp-service, der er installeret på webserveren. Hvis den enten er stoppet eller hvis den ikke tillader relay, vil mail'en ikke blive sendt. Jeg har bare indsadt "post.tele.dk" fordi den skulle være åben for relay (det er kun være et problem, hvis webserveren står bag en firewall).
Nu er jeg kommet et skridt videre, den sender nu shopMail, men ikke custMail, og den sender heller ikke indholdet af formen, kun: Fornavn: Efternavn: Adresse: By: Postnummer: Tlf-nummer: E-mail:
Efterkrav: Afhentning: Order Contents:
Total Order Value: men nu tror jeg ikke jeg tør trække mere på din tålmodighed, så du får dine point
Problemet med at den kun sender den første er nem nok. Da request.form ("email") er tom, sender den naturligvis ikke email'en. Det skal du ikke tænke på, det skal nok ordne sig når vi har fået den til at sende indholdet fra formen.
Jeg kan ikke helt forstå, hvorfor alle inputfelterne er hidden. Hvorfor er de det? Så kan man ikke udfylde dem. Og hvis man ikke kan udfylde dem, så bliver de vel ved med at være tomme. Hvordan ser den side ud, hvor man udfylder felterne?
Som du kan se er det sikkert noget rod, og 2 af siderne skulle skrives sammen, men som nybegynder har jeg taget noget her og der, og læst mig til resten. Det har virket i cdont, men det er jo også lidt anderledes.
FOR x = 0 TO UBOUND( localCart, 2 ) IF localCart( CARTPID, x ) <> "" THEN orderTotal = orderTotal + ( localCart( CARTPPRICE, x ) * localCart( CARTPQUANTITY, x ) )
DIM chId,chProduct,chPrice,chQuantity chId=(localCart( CARTPID, x) ) chProduct=Server.HTMLEncode( localCart( CARTPNAME, x ) ) chPrice=formatCurrency( localCart( CARTPPRICE, x ) ) chQuantity=localCart( CARTPQUANTITY, x )%> <% 'THE NEXT BIT PRINTS THE CONTENTS OF THE CART TO THE TEXT BOX %> <%="ID#: " & chId & vbcrlf & "Hardware: " & chProduct & vbcrlf &"Pris pr. stk.: " & chPrice & vbcrlf &"Antal: " & chQuantity & " I alt" & vbcrlf & "_______________________________________" & vbcrlf%> <% END IF NEXT %> </textarea> </font></div> </td> </tr> <tr valign="top"> <td colspan="3"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Total Orderpris</font><font face="Comic Sans MS" size="2"> <%=formatCurrency( orderTotal )%><br> <input type="hidden" name="total" value="<%=formatCurrency( orderTotal )%>"> <input type="hidden" name="contents" value="<% FOR x = 0 TO UBOUND( localCart, 2 ) IF localCart( CARTPID, x ) <> "" THEN orderTotal = orderTotal + ( localCart( CARTPPRICE, x ) * localCart( CARTPQUANTITY, x ) )
chId=(localCart( CARTPID, x) ) chProduct=Server.HTMLEncode( localCart( CARTPNAME, x ) ) chPrice=formatCurrency( localCart( CARTPPRICE, x ) ) chQuantity=localCart( CARTPQUANTITY, x )%>
jaaa, tusind tak, så virker det, som det skal. Hurra
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.