Notifikationer

Markér alle som læst Log ud

jonasaa Nybegynder

09. oktober 2003 - 16:45 Der er 17 kommentarer og
1 løsning

Asp output til email

Hej !
Jeg har et e-handels site hvor man kan leje service udstyr.
Når man klikker bestil ordre skriver mit asp script til en accsess database, som gemmer ordre og kunde informationerne. Jeg vil gerne have ændret det således at den også generer en email som bliver sendt til min mailbox.
Er der nogen som kan hjælpe? Det kræver nok en rimelig indsats, da jeg aldrig selv har prøvet at lave dette før.

Synes godt om

casjachan Nybegynder

09. oktober 2003 - 17:13 #1

Jeg ville mene at det er fornuftigt at benytte php til formålet. Når du gemmer i databasen, henviser du formentlig til felter på din hjemmeside. Indholdet af disse felter sendes til databasen. På samme måde kan man ved hjælp af php, sende indholdet af felter til en emailadresse.

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 17:15 #2

Jammen nu har jeg lavet resten i asp.. Jeg tror ikke det var det jeg ledte efter. Jeg ved man kan bruge jmail til formålet men jeg er ikke 100% på hvordan man gør.

Synes godt om

hiks Nybegynder

09. oktober 2003 - 17:23 #3

du vil meget nemt kunne lave noget i asp vha eksempelvis JMAIL.

Se følgende:

http://www.eksperten.dk/spm/277145
http://www.eksperten.dk/spm/228569

hvis du skal have hjælp til dette så bare skriv!

/hiks

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 17:25 #4

jeg vil meget gerne hav e hjælp jeg er ikke den store ørn til dette

Synes godt om

hiks Nybegynder

09. oktober 2003 - 17:36 #5

ok!

To ting der lige fra start skal undersøges:

1. Om din udbyder bruger Jmail komponentet (du kan evt. skrive hvilken hosting udbyder du har)
2. Scriptet som smider tingene i databasen - skal du nok også vise eller tage fat i til at starte med da det er det du skal bruge for at afsende en mail til dig selv.

/hiks

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 17:44 #6

1) Jeg har en udbyder der hedder buydomain.dk
2) script:

<%@ Language=VBScript %>
<%

%>
<% pageTitle = "Validate Order" %>



<%
'displays header on form field validation pages
function displayHeader()
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<body>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td valign='middle' nowrap>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.Write "<div align = 'center'>"
end function

'Validate user entries in form fields and generate error pages
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next

strFirst = Request.Form("strFirst")
strLast = Request.Form("strLast")
strEmail = Request.Form("strEmail")
strAddress1 = Request.Form("strAddress1")
strAddress2 = Request.Form("strAddress2")
strCity = Request.Form("strCity")
strState = Request.Form("strState")
strPostalCode = Request.Form("strPostalCode")
strCountry = Request.Form("strCountry")
strPhone = Request.Form("strPhone")
strShipFirst = Request.Form("strShipFirst")
strShipLast = Request.Form("strShipLast")
strShipAddress = Request.Form("strShipAddress")
strShipCity = Request.Form("strShipCity")
strShipState = Request.Form("strShipState")
strShipPostalCode = Request.Form("strShipPostalCode")
strShipCountry = Request.Form("strShipCountry")
strShipMethod = Request.Form("strShipMethod")

If strFirst = "" then
displayHeader()
Response.Write "" & "Du skal indtaste fornavn." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strLast = "" then
displayHeader()
Response.Write "" & "Du skal indtaste efternavn." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strEmail = "" OR len(strEmail) <=7 then
displayHeader()
Response.Write "" & "Please enter your email address: e.g., (name@yourDomain.com)." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strEmail = "" Or instr(strEmail, "@") = 0 then
displayHeader()
Response.Write "" & "Please enter your email address: e.g., (name@yourDomain.com)." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strAddress1 = "" OR len(strAddress1) <=7 then
displayHeader()
Response.Write "" & "Du skal indtaste gadenavn" & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strAddress2 = "" OR len(strAddress2) <2 then
displayHeader()
Response.Write "" & "Please enter your P.O. Box or Rural Route No. Enter 'NA' if not applicable." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strCity = "" OR len(strCity) <=2 then
displayHeader()
Response.Write "" & "Du skal indtaste by" & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strState = "" OR len(strState) <=1 then
displayHeader()
Response.Write "" & "Please enter your state or province." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strPostalCode = "" OR len(strPostalCode) <4 then
displayHeader()
Response.Write "" & "Du skal indtaste postnr." & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strCountry = "" OR len(strCountry) <2 then
displayHeader()
Response.Write "" & "Du skal indtaste land" & " " & "" & "Press your browser's " & "back button " & "to return to form." & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
If strPhone = "" OR len(strPhone) < 8 then
displayHeader()
Response.Write "" & "Du skal indtaste dit telefon nummer" & " " & "" & "Klik på " & "tilbage knappen " & "for at rette din bestilling" & " "
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if

%>

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

intOrderID = Request.form("intOrderID")

set rsOrder = Server.CreateObject("ADODB.Recordset")
rsOrder.Open "SELECT * FROM orders WHERE orderID = " _
& intOrderID, Conn, adOpenStatic, adLockOptimistic, _
adCmdText

if rsOrder.EOF then
Response.Write "Der er opstået et problem med din bestilling "
Response.Write "Kontakt venligst Nordsjællands Serviceudlejning."
else

rsOrder("sAmt") = Request.form("intShipping")
rsOrder("tax") = Request.form("intTax")
rsOrder("fName") = Request.form("strFirst")
rsOrder("lName") = Request.form("strLast")
rsOrder("email") = Request.form("strEmail")
rsOrder("address1") = Request.form("strAddress1")
rsOrder("address2") = Request.form("strAddress2")
rsOrder("city") = Request.form("strCity")
rsOrder("state") = Request.form("strState")
rsOrder("postalcode") = Request.form("strPostalCode")
rsOrder("country") = Request.form("strCountry")
rsOrder("phone") = Request.form("strPhone")
rsOrder("sfName") = Request.form("strShipFirst")
rsOrder("slName") = Request.form("strShipLast")
rsOrder("sAddress") = Request.form("strShipAddress")
rsOrder("sCity") = Request.form("strShipCity")
rsOrder("sState") = Request.form("strShipState")
rsOrder("sPostalcode") = Request.form("strShipPostalCode")
rsOrder("sCountry") = Request.form("strShipCountry")
rsOrder("sMethod") = Request.form("strShipMethod")
rsOrder("total") = Request.form("intTotal")
rsOrder("orderDate") = Date
rsOrder("status") = "COMPLETE"
rsOrder.Update

Conn.Execute("DELETE FROM itemsOrdered WHERE " _
& "orderID = " & intOrderID)

set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "itemsOrdered", Conn, adOpenStatic, adLockOptimistic, adCmdTable

for each item in Request.form("strOrderItem")

strOrderItem = cstr(item)
itemInfo = split(strOrderItem, ",")

rsItem.addNew
rsItem("orderID") = intOrderID
rsItem("productID") = itemInfo(0)
rsItem("quantity") = itemInfo(1)
rsItem.Update

next

rsItem.Close
set rsItem = Nothing

Session.abandon

end if
rsOrder.Close
set rsOrder = Nothing

Conn.Close
set Conn = Nothing

%>

<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title><%= pageTitle %></title>
>
</head>

<body bgcolor="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="#808080">
<basefont face="Verdana" size="2">
<table border="0" width="100%" cellpadding="4" cellspacing="1">
<tr>

<td valign="bottom" nowrap align="right"> </td>
</tr>
</table>
<table width="100%" cellpadding="0" cellspacing="0" border="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#666666" height="20" align="left" valign="middle" nowrap colspan="4"> <a style="color: #FFFFFF; text-decoration: none" href="http://www.metalinks.com/default.htm"><img src="images/icon.gif" border="0" align="middle" WIDTH="16" HEIGHT="16"> Startside</a> |
 <a href="default.asp" style="color:#FFFFFF;text-decoration:none;">e-bestilling Startside</a> |
 <a href="mailto:webmaster@yourdomain.com" style="color:#FFFFFF;text-decoration:none;">Customer
Service</a> </td>
</tr>
</table>
<hr color="#CCCCCC" size="1" noshade>
<table border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" width="625">
<tr>
<td width="128" valign="top" align="center">
<table border="0" cellspacing="4" cellpadding="4" width="125">
<tr>

</tr>
</table>
<td width="1" bgcolor="#000000"><img src="images/spacer.gif" width="1" height="1" alt border="0"></td>
<td align="center" valign="middle"><table border="0" cellspacing="4" cellpadding="4"><tr><td align="center">

Din bestilling er modtaget. Du vil blive kontaktet i løbet af få dage.

</td>
</tr>
</table>

Tak for din bestilling
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr color="#CCCCCC" size="1" noshade>

<table border="0" cellpadding="0" cellspacing="6" width="100%">
<tr>
<td colspan="3" valign="BOTTOM">

</td>
<td colspan="3" align="right" valign="TOP"> 
</td>
</tr>
</table>
</body>
</html>

Synes godt om

hiks Nybegynder

09. oktober 2003 - 18:12 #7

jow jow - det var jo en ordentlig slat...

Jeg kan ikke lige umiddelbart lure på deres hjemmeside om de har JMAIL installeret.

prøv lige at lave en asp-side som du kan smide på din server, der hedder test.asp eller lign. Kopier følgende ind:

<%@Language=VBScript%>
<%Response.Buffer = True%>
<html>
<body>
<%

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "mail@mail.dk" 'din email her!
msg.FromName = "Dit navn her" 'dit fra navn

ip = Request.ServerVariables("remote_addr")

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "mail@mail.dk", "Modtagernavn" 'fyld i her også

' The subject of the message
msg.Subject = "Indtast emne her"
msg.HTMLbody = "<html><body>Hej Fyld fyld fyld "
msg.Body = "Fyld fyld fyld"

' Now send the message, using the indicated mailserver

if not msg.Send("websmtp.dinserver.dk" ) then 'din mailserver... altså serverens
Response.write "<pre>" & msg.log & "</pre>"
else
response.write "Mailen afsendt"
end if

%>

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 18:15 #8

done jeg har uploaded til www.aagreen-design.dk/test/test.asp

Synes godt om

hiks Nybegynder

09. oktober 2003 - 18:23 #9

Det ser ud til at du har jmail komponentet...

Nu skal vi bare lige have tilpasset det så det går med din webserver! Nede i koden skal rettes, hvem der skal modtage mailen og hvem der skal stå som afsender.

Fyldet skal jeg nok fylde i til den tid så det kommer ind i det script som putter det i databasen... Prøv at kopier ind igen og ret din email til modtageren. Jeg prøvet nu at gætte din webservers mailadresse men det er ikke sikkert det virker... (mail.1go.dk)

<%@Language=VBScript%>
<%Response.Buffer = True%>
<html>
<body>
<%

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "mail@mail.dk" 'din email her!
msg.FromName = "Dit navn her" 'dit fra navn

ip = Request.ServerVariables("remote_addr")

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "mail@mail.dk", "Modtagernavn" 'fyld i her også

' The subject of the message
msg.Subject = "Indtast emne her"
msg.HTMLbody = "<html><body>Hej Fyld fyld fyld "
msg.Body = "Fyld fyld fyld"

' Now send the message, using the indicated mailserver

if not msg.Send("mail.1go.dk" ) then 'din mailserver... altså serverens
Response.write "<pre>" & msg.log & "</pre>"
else
response.write "Mailen afsendt"
end if

%>

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 18:27 #10

ok jeg har prøvet at sætte mine data ind, du må sige til hvis der er mere jeg skal sætte ind..

<%@Language=VBScript%>
<%Response.Buffer = True%>
<html>
<body>
<%

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "aagreen@tdcadsl.dk.dk" 'din email her!
msg.FromName = "Jonas" 'dit fra navn

ip = Request.ServerVariables("remote_addr")

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "mail@mail.dk", "Modtagernavn" 'fyld i her også

' The subject of the message
msg.Subject = "Indtast emne her"
msg.HTMLbody = "<html><body>Hej Fyld fyld fyld "
msg.Body = "Fyld fyld fyld"

' Now send the message, using the indicated mailserver

if not msg.Send("websmtp.dinserver.dk" ) then 'din mailserver... altså serverens
Response.write "<pre>" & msg.log & "</pre>"
else
response.write "Mailen afsendt"
end if

%>

Synes godt om

hiks Nybegynder

09. oktober 2003 - 18:34 #11

ok - so far so god - prøv at gem nedenstående som fil på samme måde som den første vi lavede og upload denne til din server som eks. test.asp igen.

gå så efterfølgende ind på siden og hvis der står mail afsendt ja så er vi et godt stykke ad vejen.. :o) Vel og mærke også hvis du efterfølgende modtager en mail.

<%@Language=VBScript%>
<%Response.Buffer = True%>
<html>
<body>
<%

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Most mailservers require a valid email address
' for the sender
msg.From = "aagreen@tdcadsl.dk" 'din email her!
msg.FromName = "Aagren-Design.dk bestilling" 'dit fra navn

ip = Request.ServerVariables("remote_addr")

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "aagreen@tdcadsl.dk", "Jonas" 'fyld i her også

' The subject of the message
msg.Subject = "Bestilling"
msg.HTMLbody = "<html><body>Hej Kan du se dette i en mail er der hul igennem! Mailen er afsendt fra IP: " & ip
msg.Body = "Kan du se dette i en mail er der hul igennem!"

' Now send the message, using the indicated mailserver

if not msg.Send("mail.1go.dk" ) then 'din mailserver... altså serverens
Response.write "<pre>" & msg.log & "</pre>"
else
response.write "Mailen afsendt"
end if

%>

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 18:41 #12

jeg har uploaded den skal jeg prøve at lave en bestilling eller gå ind på :
www.aagreen-design.dk/test/test.asp

Synes godt om

hiks Nybegynder

09. oktober 2003 - 18:45 #13

- det er ikke den rigtige du har uploadet. Du skal lave en helt ny fil med den sidst nye jeg har postet her!

Jeg bliver nød til at smutte ud af døren nu. Men skal nok samle op på stumperne i morgen! Hvis der er nogle stumper!

mvh og go aften Hiks

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 18:48 #14

ok.. jeg håber vi får det til at virke.. Vi snakkes imorgen

Synes godt om

jonasaa Nybegynder

09. oktober 2003 - 18:49 #15

he.. det virker ikke helt, men vi kigger på det imorgen..

Synes godt om

a71983 Nybegynder

13. oktober 2003 - 13:47 #16

Hej Igen !
Jeg ville hører om du evt. har tid til at hjælpe mig videre...?

Synes godt om

jonasaa Nybegynder

13. oktober 2003 - 16:23 #17

Hej Hiks !
Hvornår kunne du evt. have tid til at hjælpe mig færdig med jmail funktionen.

Synes godt om

hiks Nybegynder

28. oktober 2003 - 17:49 #18

jeg må nok hellere lige smide et svar! :O)

/hiks

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS