Notifikationer

Markér alle som læst Log ud

cybles Nybegynder

04. december 2000 - 17:15 Der er 20 kommentarer og
1 løsning

ASP JMail indsæt date fra database.

Jeg har understående script, der forgår to ting under afviklingen af dette script :

1.) Den indsætter nogle date i en database

2.) Den sender en mail med en note om at databasen er blevet ændret.

Jeg vil gerne havde at JMail også sender disse data som er indsat i databasen. Jeg har forsøgt mig lidt frem, men det ser ud til at jeg bliver ved med at lave en syntax fejl, derfor poster jeg hele scriptet som virker, nu vil jeg som sagt blot havde den til at sende indholdet fra databasen med i den mail som bliver afsendt.

Synes godt om

stigc Nybegynder

04. december 2000 - 17:20 #1

scriptet?

Synes godt om

stigc Nybegynder

04. december 2000 - 17:20 #2

Jeg har lavet denne funktion:

<%

Function mailto (sMailFrom, sMailTo, subject, body, smtp)

on error resume next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = smtp
JMail.Priority = 0
JMail.Sender = sMailFrom
JMail.AddRecipient sMailTo
\'Jmail.AddRecipientCC email
\'Jmail.AddRecipientBCC email
JMail.Subject = subject
JMail.Body = body
JMail.Execute
Set JMail = Nothing

end Function

%>

Synes godt om

stigc Nybegynder

04. december 2000 - 17:22 #3

læg den i en fil kaldet mailto.asp, så sender man en mail sådan:


sSmtp=\"dinmailserver\"

dummy = mailto( \"fra@mig.dk, \"til@dig.dk\" , \"overskrift\" , \"body\", sSmtp)

Synes godt om

cybles Nybegynder

04. december 2000 - 17:28 #4

Her kommer siden indeholdene de to script.....

<%@ Language=VBScript %>


<%
For Each key in Request.Form
strname = key
strvalue = Request.Form(key)
Session(strname) = strvalue
Next

If Request.Form(\"cardaddress\") = \"\" OR len(Request.Form(\"cardaddress\")) <=8 Then
Response.Redirect \"checkout.asp?msg=\" & Server.URLEncode (\"Skriv venligst en adresse som vi kan sende en kvittering til.\")
Else

Dim arrCart, metacartItem
arrCart = Session(\"MyCart\")
metacartItem = Session(\"cartItem\")

Dim rsorder
Set rsorder = Server.CreateObject (\"ADODB.recordset\")
rsorder.Open \"orders\", dbc, adOpenKeyset, adLockPessimistic, adCmdTable
rsorder.AddNew
rsorder(\"ocustomerid\") = Session(\"customerid\")
rsorder(\"odate\") = Date
rsorder(\"orderamount\") = Request.Form(\"ordertotal\")
rsorder(\"oshipmethod\") = CInt(Request.Form(\"shipment\"))
rsorder(\"ocardtype\") = Request.Form(\"paymentm\")
rsorder(\"ocardno\") = Request.Form(\"cardno\")
rsorder(\"ocardname\") = Request.Form(\"cardname\")
rsorder(\"ocardexpires\") = Request.Form(\"cardexpire\")
rsorder(\"ocardaddress\") = Request.Form(\"cardaddress\")
If Not Request.Form(\"shipaddress\")=\"\" then
rsorder(\"oshipaddress\") = Request.Form(\"shipaddress\")
End If
If Not Request.Form(\"shiptown\")=\"\" then
rsorder(\"oshiptown\") = Request.Form(\"shiptown\")
End If
If Not Request.Form(\"shipzip\")=\"\" then
rsorder(\"oshipzip\") = Request.Form(\"shipzip\")
End If
If Not Request.Form(\"shipstate\")=\"\" then
rsorder(\"oshipstate\") = Request.Form(\"shipstate\")
End If
If Not Request.Form(\"shipcountry\")=\"\" then
rsorder(\"oshipcountry\") = Request.Form(\"shipcountry\")
End If
rsorder.Update
rsorder.Close

Dim oid, sqlo
sqlo = \"SELECT max(orderID) FROM orders\"
Set rso = dbc.Execute(sqlo)
oid = Cint(rso(0))
rso.Close

If oid < 1 Then
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Error: No order id.\")
Else
Dim rsitem
Set rsitem = Server.CreateObject (\"ADODB.recordset\")
rsitem.Open \"oitems\", dbc, adOpenKeyset, adLockOptimistic , adcmdtable
For i = 1 To metacartItem
rsitem.AddNew
rsitem(\"orderid\") = oid
rsitem(\"catalogid\") = arrCart(cProductid,i)
rsitem(\"numitems\") = arrCart(cQuantity,i)
rsitem.Update
Next
rsitem.Close
End if

If dbc.Errors.Count > 0 then
dbc.Close
set dbc = nothing
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Did not succeed. Error: \") & dbc.Error.Description
Else
dbc.close
set dbc = nothing
\' ******* her sættes Jmail funktionen ind

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.kni.gl\"
JMail.Sender = \"arz@mail.kni.gl\"
JMail.Sendername = \" SPAR Vinhandel \"
JMail.Subject = \" Ny Ordre \"
\' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
JMail.AddRecipient \"arz@mail.kni.gl\"
JMail.body = \"Der er kommet en ny ordre i vinhandelen. Åben database og send ordre til SPAR.\"
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
\' **** Sender E-Mailen ************
JMail.Execute
\'********** her afsluttes Jmail ******
Response.Redirect \"checkout1.asp\"
End If
End If
%>

Synes godt om

cybles Nybegynder

04. december 2000 - 17:32 #5

Gider du parre disse to script så er den hjemme, jeg har som sagt em syntax fejl når jeg selv forsøger...

Synes godt om

stigc Nybegynder

04. december 2000 - 17:33 #6

hvor kommer fejlen og hvad siger den?

Synes godt om

cybles Nybegynder

04. december 2000 - 18:39 #7

Er der ikke en der kan sample overtstående script ?

Synes godt om

tdaugaard Nybegynder

04. december 2000 - 18:56 #8

Hvad mener du ?

Hvilken fejl er det du får ??

Synes godt om

cybles Nybegynder

04. december 2000 - 18:59 #9

Altså jeg har to handlinger i overstående script og dem vil jeg gerne havde således at der hvor jeg har JMail.body bliver de data der er sendt til databasen også bliver send som mail.

Synes godt om

stigc Nybegynder

04. december 2000 - 19:03 #10

du tager da bare og laver en ny variabel (her body) som er sat sammen af alle felternes værdoer, ved hjælp af request! Her lidt til en start:

body = Request.Form(\"ordertotal\") & vbnewline
body = body & Request.Form(\"shipment\") & vbnewline
body = body & Request.Form(\"payment\") & vbnewline

JMail.body = body

Synes godt om

stigc Nybegynder

04. december 2000 - 19:05 #11

hvis du vil har sat det lidt flottere op så noget alla det her:

body = \"Ordertal: \" & Request.Form(\"ordertotal\") & vbnewline
body = body & \"Shipment: \" & Request.Form(\"shipment\") & vbnewline
body = body & \"Payment: \" & Request.Form(\"payment\") & vbnewline

JMail.body = body

Synes godt om

cybles Nybegynder

04. december 2000 - 19:17 #12

Den fanger ikke de data som den skal .....der kommer bare en mail med Ordertotal : den indsætter ikke de data den skal...

Synes godt om

cybles Nybegynder

04. december 2000 - 19:24 #13

Tak det virker, jeg brugte StigC forklaring. Tak for hjælpen.

Synes godt om

tdaugaard Nybegynder

04. december 2000 - 19:24 #14

Sumtin\' like this ?
Nedenstående SKAL virke..

<%@ Language=VBScript %>

<%
For Each key in Request.Form
strname = key
strvalue = Request.Form(key)
Session(strname) = strvalue
Next

If Request.Form(\"cardaddress\") = \"\" OR len(Request.Form(\"cardaddress\")) <=8 Then
Response.Redirect \"checkout.asp?msg=\" & Server.URLEncode (\"Skriv venligst en adresse som vi kan sende en kvittering til.\")
Else
Dim arrCart, metacartItem
arrCart = Session(\"MyCart\")
metacartItem = Session(\"cartItem\")

Dim rsorder

Set rsorder = Server.CreateObject (\"ADODB.recordset\")

strBody = strBody & \"CustomerID: \" & Session(\"customerid\") & vbCrLf
strBody = strBody & \"Date: \" & Date & vbCrLf
strBody = strBody & \"Order Amount: \" & Request.Form(\"ordertotal\") & vbCrLf
strBody = strBody & \"Shipping Method: \" & CInt(Request.Form(\"shipment\")) & vbCrLf & vbCrLf

strBody = strBody & \"Card Type: \" & Request.Form(\"paymentm\") & vbCrLf
strBody = strBody & \"Card Number: \" & Request.Form(\"cardno\") & vbCrLf
strBody = strBody & \"Card Name: \" & Request.Form(\"cardname\") & vbCrLf
strBody = strBody & \"Card Expiration: \" & Request.Form(\"cardexpire\") & vbCrLf
strBody = strBody & \"Card Address: \" & Request.Form(\"cardaddress\") & vbCrLf & vbCrLf

strBody = strBody & \"SHIPPING INFORMATION\" & vbCrLf & vbCrLf

rsorder.Open \"orders\", dbc, adOpenKeyset, adLockPessimistic, adCmdTable
rsorder.AddNew
rsorder(\"ocustomerid\") = Session(\"customerid\")
rsorder(\"odate\") = Date
rsorder(\"orderamount\") = Request.Form(\"ordertotal\")
rsorder(\"oshipmethod\") = CInt(Request.Form(\"shipment\"))
rsorder(\"ocardtype\") = Request.Form(\"paymentm\")
rsorder(\"ocardno\") = Request.Form(\"cardno\")
rsorder(\"ocardname\") = Request.Form(\"cardname\")
rsorder(\"ocardexpires\") = Request.Form(\"cardexpire\")
rsorder(\"ocardaddress\") = Request.Form(\"cardaddress\")
If Not Request.Form(\"shipaddress\") = \"\" Then rsorder(\"oshipaddress\") = Request.Form(\"shipaddress\"): strBody = strBody & \"Address: \" & Request.Form(\"shipaddress\") & vbCrLf
If Not Request.Form(\"shiptown\") = \"\" Then rsorder(\"oshiptown\") = Request.Form(\"shiptown\"): strBody = strBody & \"City: \" & Request.Form(\"shiptown\") & vbCrLf
If Not Request.Form(\"shipzip\") = \"\" Then rsorder(\"oshipzip\") = Request.Form(\"shipzip\"): strBody = strBody & \"Zip/Postal Code: \" & Request.Form(\"shipzip\") & vbCrLf
If Not Request.Form(\"shipstate\") = \"\" Then rsorder(\"oshipstate\") = Request.Form(\"shipstate\"): strBody = strBody & \"State: \" & Request.Form(\"shipstate\") & vbCrLf
If Not Request.Form(\"shipcountry\") = \"\" Then rsorder(\"oshipcountry\") = Request.Form(\"shipcountry\"): strBody = strBody & \"Country: \" & Request.Form(\"shipcountry\") & vbCrLf
rsorder.Update
rsorder.Close

Dim oid, sqlo
sqlo = \"SELECT max(orderID) FROM orders\"
Set rso = dbc.Execute(sqlo)
oid = Cint(rso(0))
rso.Close

If oid < 1 Then
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Error: No order id.\")
Else
Dim rsitem
Set rsitem = Server.CreateObject (\"ADODB.recordset\")
rsitem.Open \"oitems\", dbc, adOpenKeyset, adLockOptimistic , adcmdtable

For i = 1 To metacartItem
rsitem.AddNew
rsitem(\"orderid\") = oid
rsitem(\"catalogid\") = arrCart(cProductid,i)
rsitem(\"numitems\") = arrCart(cQuantity,i)
rsitem.Update
Next

rsitem.Close
End if

If dbc.Errors.Count > 0 then
dbc.Close
set dbc = nothing
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Did not succeed. Error: \") & dbc.Error.Description
Else
dbc.close
set dbc = nothing

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.kni.gl\"
JMail.Sender = \"arz@mail.kni.gl\"
JMail.Sendername = \" SPAR Vinhandel \"
JMail.Subject = \" Ny Ordre \"
\' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
JMail.AddRecipient \"arz@mail.kni.gl\"
JMail.Body = strBody
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
\' **** Sender E-Mailen ************
JMail.Execute
\'********** her afsluttes Jmail ******
Response.Redirect \"checkout1.asp\"
End If
End If
%>

Synes godt om

stigc Nybegynder

04. december 2000 - 19:26 #15

Du skal huske du skal have været på siden, før denne! Altså den hvor brugeren udfylder felterne! Så submitter du formen og kommer til denne. Ellers vil der ikke være noget data i Request.Form(\"ordertotal\") !

Synes godt om

tdaugaard Nybegynder

04. december 2000 - 19:27 #16

eller http://www.tdaugaard.dk/x/jmail_indsaet.as_ hvis det er nemmere

Synes godt om

cybles Nybegynder

04. december 2000 - 19:27 #17

Det kostede mig vist lige 500 ekstra point da i svarede på samme tid. Jeg laver lige et spørgsmål til Tdaugaard, du skal selvfølgelig også havde de point, dem har du fortjent.

Synes godt om

tdaugaard Nybegynder

04. december 2000 - 19:28 #18

okai .. jeg så ikke at du havde accepteret stigc\'s svar og kommenteret det da jeg postede..

Synes godt om

tdaugaard Nybegynder

04. december 2000 - 19:29 #19

Hvor meget jeg end vil hade mig selv for at sige det, så behøver du ikke det hvis stigc\'s svar var fint nok..

Synes godt om

cybles Nybegynder

05. december 2000 - 15:32 #20

Til tdaugaard & stigc

Jeg har stadigvæk et lille problem, jeg ikke kan helt hitte ud af. Problemet er følgende, jeg kan ikke få den til at tage produkt id, med i den mail som den sender, jeg har alle andre med, men er ikke helt sikker på hvor jeg skal tilføje produkt ID i scriptet her kommer hele scriptet, den der løser problemet eller hjælpe mig til det for selvfølgelig 500 point :

<%@ Language=VBScript %>

<%
For Each key in Request.Form
strname = key
strvalue = Request.Form(key)
Session(strname) = strvalue
Next

If Request.Form(\"cardaddress\") = \"\" OR len(Request.Form(\"cardaddress\")) <=8 Then
Response.Redirect \"checkout.asp?msg=\" & Server.URLEncode (\"Skriv venligst en adresse som vi kan sende en kvittering til.\")
Else
Dim arrCart, metacartItem
arrCart = Session(\"MyCart\")
metacartItem = Session(\"cartItem\")

Dim rsorder

Set rsorder = Server.CreateObject (\"ADODB.recordset\")

strBody = strBody & \"Kundens fornavn : \" & Session(\"fname\") & vbCrLf
strBody = strBody & \"Kundens efternavn : \" & Session(\"lname\") & vbCrLf
strBody = strBody & \"Kundens e-post : \" & Session(\"email\") & vbCrLf
strBody = strBody & \"Kundens adresse : \" & Session(\"address\") & vbCrLf
strBody = strBody & \"Kundens by / bygd : \" & Session(\"town\") & vbCrLf
strBody = strBody & \"Kundens post nr : \" & Session(\"state\") & vbCrLf
strBody = strBody & \"Ønsket leverings dato : \" & Session(\"zip\") & vbCrLf
strBody = strBody & \"Ønsket leverings dato : \" & Session(\"country\") & vbCrLf
strBody = strBody & \"Kundens telefon nr : \" & Session(\"phone\") & vbCrLf
strBody = strBody & \"Antal af hver : \" & Session(\"quantity\") & vbCrLf

strBody = strBody & \"Kunde ID : \" & Session(\"customerid\") & vbCrLf
strBody = strBody & \"Ordre dato : \" & Date & vbCrLf
strBody = strBody & \"Beløb i alt: \" & Request.Form(\"ordertotal\") & vbCrLf
strBody = strBody & \"Forsendelse: \" & CInt(Request.Form(\"shipment\")) & vbCrLf & vbCrLf
strBody = strBody & \"Card Type: \" & Request.Form(\"paymentm\") & vbCrLf
strBody = strBody & \"Card Number: \" & Request.Form(\"cardno\") & vbCrLf
strBody = strBody & \"Card Name: \" & Request.Form(\"cardname\") & vbCrLf
strBody = strBody & \"Card Expiration: \" & Request.Form(\"cardexpire\") & vbCrLf
strBody = strBody & \"Kvittering sendes til: \" & Request.Form(\"cardaddress\") & vbCrLf & vbCrLf

strBody = strBody & \"HVIS LEVERING TIL ANDEN END KUNDE SELV\" & vbCrLf & vbCrLf

rsorder.Open \"orders\", dbc, adOpenKeyset, adLockPessimistic, adCmdTable
rsorder.AddNew
rsorder(\"ocustomerid\") = Session(\"customerid\")
rsorder(\"odate\") = Date

rsorder(\"orderamount\") = Request.Form(\"ordertotal\")
rsorder(\"oshipmethod\") = CInt(Request.Form(\"shipment\"))
rsorder(\"ocardtype\") = Request.Form(\"paymentm\")
rsorder(\"ocardno\") = Request.Form(\"cardno\")
rsorder(\"ocardname\") = Request.Form(\"cardname\")
rsorder(\"ocardexpires\") = Request.Form(\"cardexpire\")
rsorder(\"ocardaddress\") = Request.Form(\"cardaddress\")
If Not Request.Form(\"shipaddress\") = \"\" Then rsorder(\"oshipaddress\") = Request.Form(\"shipaddress\"): strBody = strBody & \"Addresse: \" & Request.Form(\"shipaddress\") & vbCrLf
If Not Request.Form(\"shiptown\") = \"\" Then rsorder(\"oshiptown\") = Request.Form(\"shiptown\"): strBody = strBody & \"By / bygd: \" & Request.Form(\"shiptown\") & vbCrLf
If Not Request.Form(\"shipzip\") = \"\" Then rsorder(\"oshipzip\") = Request.Form(\"shipzip\"): strBody = strBody & \"Leverings dato: \" & Request.Form(\"shipzip\") & vbCrLf
If Not Request.Form(\"shipstate\") = \"\" Then rsorder(\"oshipstate\") = Request.Form(\"shipstate\"): strBody = strBody & \"Postnummer: \" & Request.Form(\"shipstate\") & vbCrLf
If Not Request.Form(\"shipcountry\") = \"\" Then rsorder(\"oshipcountry\") = Request.Form(\"shipcountry\"): strBody = strBody & \"Leverings tidspunkt: \" & Request.Form(\"shipcountry\") & vbCrLf
rsorder.Update
rsorder.Close

Dim oid, sqlo
sqlo = \"SELECT max(orderID) FROM orders\"
Set rso = dbc.Execute(sqlo)
oid = Cint(rso(0))
rso.Close

If oid < 1 Then
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Error: No order id.\")
Else
Dim rsitem
Set rsitem = Server.CreateObject (\"ADODB.recordset\")
rsitem.Open \"oitems\", dbc, adOpenKeyset, adLockOptimistic , adcmdtable

For i = 1 To metacartItem
rsitem.AddNew
rsitem(\"orderid\") = oid
rsitem(\"catalogid\") = arrCart(cProductid,i)
rsitem(\"numitems\") = arrCart(cQuantity,i)
rsitem.Update
Next

rsitem.Close
End if

If dbc.Errors.Count > 0 then
dbc.Close
set dbc = nothing
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Did not succeed. Error: \") & dbc.Error.Description
Else
dbc.close
set dbc = nothing

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.kni.gl\"
JMail.Sender = \"arz@mail.kni.gl\"
JMail.Sendername = \" SPAR Vinhandel \"
JMail.Subject = \" Ny Ordre \"
\' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
JMail.AddRecipient \"arz@mail.kni.gl\"
JMail.Body = strBody
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
\' **** Sender E-Mailen ************
JMail.Execute
\'********** her afsluttes Jmail ******
Response.Redirect \"checkout1.asp\"
End If
End If
%>

Synes godt om

tdaugaard Nybegynder

05. december 2000 - 16:59 #21

det er \"oid\" der indeholder OrderID, ikke ?

Hvis vi så sætter det i toppen:

<%@ Language=VBScript %>

<%
For Each key in Request.Form
strname = key
strvalue = Request.Form(key)
Session(strname) = strvalue
Next

If Request.Form(\"cardaddress\") = \"\" OR len(Request.Form(\"cardaddress\")) <=8 Then
Response.Redirect \"checkout.asp?msg=\" & Server.URLEncode (\"Skriv venligst en adresse som vi kan sende en kvittering til.\")
Else
Dim arrCart, metacartItem
arrCart = Session(\"MyCart\")
metacartItem = Session(\"cartItem\")

Dim rsorder

Set rsorder = Server.CreateObject (\"ADODB.recordset\")

strBody = strBody & \"Kundens fornavn : \" & Session(\"fname\") & vbCrLf
strBody = strBody & \"Kundens efternavn : \" & Session(\"lname\") & vbCrLf
strBody = strBody & \"Kundens e-post : \" & Session(\"email\") & vbCrLf
strBody = strBody & \"Kundens adresse : \" & Session(\"address\") & vbCrLf
strBody = strBody & \"Kundens by / bygd : \" & Session(\"town\") & vbCrLf
strBody = strBody & \"Kundens post nr : \" & Session(\"state\") & vbCrLf
strBody = strBody & \"Ønsket leverings dato : \" & Session(\"zip\") & vbCrLf
strBody = strBody & \"Ønsket leverings dato : \" & Session(\"country\") & vbCrLf
strBody = strBody & \"Kundens telefon nr : \" & Session(\"phone\") & vbCrLf
strBody = strBody & \"Antal af hver : \" & Session(\"quantity\") & vbCrLf

strBody = strBody & \"Kunde ID : \" & Session(\"customerid\") & vbCrLf
strBody = strBody & \"Ordre dato : \" & Date & vbCrLf
strBody = strBody & \"Beløb i alt: \" & Request.Form(\"ordertotal\") & vbCrLf
strBody = strBody & \"Forsendelse: \" & CInt(Request.Form(\"shipment\")) & vbCrLf & vbCrLf
strBody = strBody & \"Card Type: \" & Request.Form(\"paymentm\") & vbCrLf
strBody = strBody & \"Card Number: \" & Request.Form(\"cardno\") & vbCrLf
strBody = strBody & \"Card Name: \" & Request.Form(\"cardname\") & vbCrLf
strBody = strBody & \"Card Expiration: \" & Request.Form(\"cardexpire\") & vbCrLf
strBody = strBody & \"Kvittering sendes til: \" & Request.Form(\"cardaddress\") & vbCrLf & vbCrLf

strBody = strBody & \"HVIS LEVERING TIL ANDEN END KUNDE SELV\" & vbCrLf & vbCrLf

rsorder.Open \"orders\", dbc, adOpenKeyset, adLockPessimistic, adCmdTable
rsorder.AddNew
rsorder(\"ocustomerid\") = Session(\"customerid\")
rsorder(\"odate\") = Date

rsorder(\"orderamount\") = Request.Form(\"ordertotal\")
rsorder(\"oshipmethod\") = CInt(Request.Form(\"shipment\"))
rsorder(\"ocardtype\") = Request.Form(\"paymentm\")
rsorder(\"ocardno\") = Request.Form(\"cardno\")
rsorder(\"ocardname\") = Request.Form(\"cardname\")
rsorder(\"ocardexpires\") = Request.Form(\"cardexpire\")
rsorder(\"ocardaddress\") = Request.Form(\"cardaddress\")
If Not Request.Form(\"shipaddress\") = \"\" Then rsorder(\"oshipaddress\") = Request.Form(\"shipaddress\"): strBody = strBody & \"Addresse: \" & Request.Form(\"shipaddress\") & vbCrLf
If Not Request.Form(\"shiptown\") = \"\" Then rsorder(\"oshiptown\") = Request.Form(\"shiptown\"): strBody = strBody & \"By / bygd: \" & Request.Form(\"shiptown\") & vbCrLf
If Not Request.Form(\"shipzip\") = \"\" Then rsorder(\"oshipzip\") = Request.Form(\"shipzip\"): strBody = strBody & \"Leverings dato: \" & Request.Form(\"shipzip\") & vbCrLf
If Not Request.Form(\"shipstate\") = \"\" Then rsorder(\"oshipstate\") = Request.Form(\"shipstate\"): strBody = strBody & \"Postnummer: \" & Request.Form(\"shipstate\") & vbCrLf
If Not Request.Form(\"shipcountry\") = \"\" Then rsorder(\"oshipcountry\") = Request.Form(\"shipcountry\"): strBody = strBody & \"Leverings tidspunkt: \" & Request.Form(\"shipcountry\") & vbCrLf
rsorder.Update
rsorder.Close

Dim oid, sqlo
sqlo = \"SELECT max(orderID) FROM orders\"
Set rso = dbc.Execute(sqlo)
oid = Cint(rso(0))
rso.Close

strBody = \"Ordre ID: : \" & oid & strBody & vbCrLf

If oid < 1 Then
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Error: No order id.\")
Else
Dim rsitem
Set rsitem = Server.CreateObject (\"ADODB.recordset\")
rsitem.Open \"oitems\", dbc, adOpenKeyset, adLockOptimistic , adcmdtable

For i = 1 To metacartItem
rsitem.AddNew
rsitem(\"orderid\") = oid
rsitem(\"catalogid\") = arrCart(cProductid,i)
rsitem(\"numitems\") = arrCart(cQuantity,i)
rsitem.Update
Next

rsitem.Close
End if

If dbc.Errors.Count > 0 then
dbc.Close
set dbc = nothing
Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"Did not succeed. Error: \") & dbc.Error.Description
Else
dbc.close
set dbc = nothing

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.kni.gl\"
JMail.Sender = \"arz@mail.kni.gl\"
JMail.Sendername = \" SPAR Vinhandel \"
JMail.Subject = \" Ny Ordre \"
\' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
JMail.AddRecipient \"arz@mail.kni.gl\"
JMail.Body = strBody
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
\' **** Sender E-Mailen ************
JMail.Execute
\'********** her afsluttes Jmail ******
Response.Redirect \"checkout1.asp\"
End If
End If
%>

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

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

12:00

Ugen i tech: Googles giver gratisbrugerne et kæmpe AI-løft / Årets bil er kåret som suveræn vinder – nu lader den vente på sig

13/11

Microsoft: Vi har fundet årsagen til kæmpenedbrud - her er den

13/11

En AI-revolution er på vej til din pc: Sådan kommer den til at ændre fremtidens computere radikalt

13/11

Nørgaard: Om genopdragelsen af ofrene for noget grimt - der er deres egen skyld

13/11

Peter Kruse: Derfor blev Microsoft ramt af kæmpe-nedbrud

13/11

Efter blot fem måneder: Tidligere Nvidia-chef forlader selskabet bag Danmarks AI-supercomputer

13/11

Danske it-virksomheder tynges af compliance-krav: Regler og love står i vejen for vores fremskridt

13/11

Ny status fra Microsoft: Europa ved at være oppe at køre igen

13/11

Efter klage: Varsler særligt tilsyn med tjeneste, som anvendes af mange danske børn

13/11

AI æder sig ind på søgemaskinernes trafik - men Boozt har fundet en smart metode til at fastholde sine kunder på sitet

13/11

Danske Outlook-installationer på benene igen

Vis flere artikler

IT-JOB

GASA GROUP Denmark A/S

Intern NAV/BC-udvikler – få indflydelse på ERP-platformen tæt på forretningen

PensionDanmark

Head of AI & Automation Center of Excellence

KMD A/S

Senior Payroll- og implementeringskonsulent til KMD Payroll Cloud

FlexDanmark

Erfaren IT-Projektleder

Capgemini Danmark A/S

Client Partner

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 08:39	Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59	Bitlocker Af nico i Windows
12/1116:30	Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19	Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33	Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows

White papers

De spørgsmål 200+ danske virksomheder stiller om print – samlet i én guide
Konica Minolta
Er det tid til at pensionere printserveren?
Konica Minolta

Flere white papers »