asp submit som link

Sådan her så virker det:

<form method="POST" action="findorder.asp?ordernumber=<%=Request.form("order")%>">
        Indtast ordrenummer<br>
<input type="text" name="order" value="" size="10" maxlength="8"><br>
<input type="submit" value="Vis ordre">
</form>

<form method="POST" action="findorder.asp">
        Indtast ordrenummer<br>
<input type="text" name="order" value="" size="10" maxlength="8"><br>
<input type="submit" value="Vis ordre">
</form>

Når du benytter dette kan du med request.form("ordre") på siden findordre.asp finde indholdet...

Du kan ikke finde indholdet af en form før den er submittet...

du manglede lige et =

action="findorder.asp?ordernumber=<%=Request.form("order")%>">

i stedet for

action="findorder.asp?ordernumber=<%Request.form("order")%>">

Det er rigtigt som ellebaek siger..... formen skal jo være submittet inden du kan få indholdet af formen op som en querystring

Syntax error (missing operator) in query expression 'order_id ='.

gør som jeg har skrevet...

Du kan ikke finde den med request.querystring, men du skal benytte request.form.

okay prøver lige

findorder.asp

har to indfaldsveje en fra en side der generer string

og den omtalte form side

det du skal gøre er på din findorder.asp-side at lave en requeste.form... så virker det..

If Request.Querystring("ordernumber") <> "" then
ordernumber=Request.Querystring("ordernumber")
else
ordernumber=Request.Form("order")
End If

så benyt...

if request.querystring("ordre") <> "" then
din opr. sql
else
sql ="SELECT * FROM TABEL WHERE ordre_id = '"&request.form("ordre")&"'"
end if
set rs = rs.execute(sql)

???

ja, det er selvfølgelig også en mulighed...

kan du ikke bare på din findorder.asp lave noget lignende:

if request.form("order") <> "" then
  order = request.form("order")
else
  order = dinString
end if


og så arbejde videre med variablen order

kovalt...-> det er det html beskrev en måde at gøre på lige før...

Du kan sagtens bruge den mulighed du selv beskrev før.

I problemer hvor du har flere forskellige indgange til siden er det en god mulighed at benytte if then som du selv kom frem med...

Det kan både gøres som du gjorde eller som jeg...

oh shit nu bliver det vidst meget avanceret

hvad skal det sige ?

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/shop/findorder.asp, line 28

rs.Open sql, conn, 3, 3

ellebaek --> jeg sad og skrev mit indlæg mens han postede sit.... sorry jeg ikke lige fik opdateret siden i mellemtiden :-(

den fejl kommer fordi der er uoverensstemmelser mellem tal og tekst... du prøver at indsætte noget tekst i et tal-felt eller omvendt

kovalt -> np...


hvis din ordrenummer er et tal, så skal du bruge en sql i af denne type...

sql = "select * from tabel where ordre_id = " & ordrenumber

Nu er mit problem

at stringvejen ikke vil tillade '" & xxx &"'"

men det kræver formvejen

if request.form("order") <> "" then
  order = CInt/request.form("order"))
else
  order = dinString
end if

if request.form("order") <> "" then
  order = CInt(request.form("order"))
else
  order = dinString
end if

Sådan her selvfølgelig...

er det felt i DB et tal-felt?

nej

Det er altså et tekstfelt som både kan indeholde tekst og tal eller hvad?

Microsoft VBScript runtime error '800a0006'

Overflow: 'CInt'

/shop/findorder.asp, line 20

Kan du ikke sende dine filer til mig, så kan jeg kigge på det...

jens_ellebaek@hotmail.com

hvis feltet er et tekst-felt - så er variabeln ordernumber da ikke valgt så godt.

Vil ordernumber ikke altid indeholde et tal?

ja det indeholder hovedsageligt og mest KUN tal,men jeg bliver nødt til gøre plads til at der kan indsættes tekstværdi

eller bare poste dem her

hvorfor det?

findorder.asp

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=Request.Querystring("ordernumber")
else
ordernumber=CInt(request.form("order"))
End If
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = " & ordernumber
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=Request.Querystring("ordernumber")
else
ordernumber= request.form("order")
End If
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = '" & ordernumber & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

Virker dette ikke ?

stringvejen.asp

<!-- #INCLUDE FILE="settings.asp" -->

<%
orderlist=Request.form("quantity1") & Request.form("number1") & Request.form("item1") & Request.form("option1")& Request.form("price1")& vbcrlf&_
    Request.form("quantity2") & Request.form("number2") & Request.form("item2") & Request.form("option2")& Request.form("price2")& vbcrlf&_
    Request.form("quantity3") & Request.form("number3") & Request.form("item3") & Request.form("option3")& Request.form("price3")& vbcrlf&_
    Request.form("quantity4") & Request.form("number4") & Request.form("item4") & Request.form("option4")& Request.form("price4")& vbcrlf&_
    Request.form("quantity5") & Request.form("number5") & Request.form("item5") & Request.form("option5")& Request.form("price5")& vbcrlf&_
    Request.form("quantity6") & Request.form("number6") & Request.form("item6") & Request.form("option6")& Request.form("price6")& vbcrlf&_
    Request.form("quantity7") & Request.form("number7") & Request.form("item7") & Request.form("option7")& Request.form("price7")& vbcrlf&_
    Request.form("quantity8") & Request.form("number8") & Request.form("item8") & Request.form("option8")& Request.form("price8")& vbcrlf&_   
    Request.form("quantity9") & Request.form("number9") & Request.form("item9") & Request.form("option9")& Request.form("price9")& vbcrlf&_
    Request.form("quantity10") & Request.form("number10") & Request.form("item10") & Request.form("option10")& Request.form("price10")& vbcrlf&_
    Request.form("quantity11") & Request.form("number11") & Request.form("item11") & Request.form("option11")& Request.form("price11")& vbcrlf&_
    Request.form("quantity12") & Request.form("number12") & Request.form("item12") & Request.form("option12")& Request.form("price12")& vbcrlf&_
    Request.form("quantity13") & Request.form("number13") & Request.form("item13") & Request.form("option13")& Request.form("price13")& vbcrlf&_
    Request.form("quantity14") & Request.form("number14") & Request.form("item14") & Request.form("option14")& Request.form("price14")& vbcrlf&_
    Request.form("quantity15") & Request.form("number15") & Request.form("item15") & Request.form("option15")& Request.form("price15")& vbcrlf&_
    Request.form("quantity16") & Request.form("number16") & Request.form("item16") & Request.form("option16")& Request.form("price16")& vbcrlf&_
    Request.form("quantity17") & Request.form("number17") & Request.form("item17") & Request.form("option17")& Request.form("price17")& vbcrlf&_
    Request.form("quantity18") & Request.form("number18") & Request.form("item18") & Request.form("option18")& Request.form("price18")& vbcrlf&_   
    Request.form("quantity19") & Request.form("number19") & Request.form("item19") & Request.form("option19")& Request.form("price19")& vbcrlf&_
    Request.form("quantity20") & Request.form("number20") & Request.form("item20") & Request.form("option20")& Request.form("price20")& vbcrlf&_
    Request.form("quantity21") & Request.form("number21") & Request.form("item21") & Request.form("option21")& Request.form("price21")& vbcrlf&_
    Request.form("quantity22") & Request.form("number22") & Request.form("item22") & Request.form("option22")& Request.form("price22")& vbcrlf&_
    Request.form("quantity23") & Request.form("number23") & Request.form("item23") & Request.form("option23")& Request.form("price23")& vbcrlf&_
    Request.form("quantity24") & Request.form("number24") & Request.form("item24") & Request.form("option24")& Request.form("price24")& vbcrlf&_
    Request.form("quantity25") & Request.form("number25") & Request.form("item25") & Request.form("option25")& Request.form("price25")& vbcrlf&_
    Request.form("quantity26") & Request.form("number26") & Request.form("item26") & Request.form("option26")& Request.form("price26")& vbcrlf&_
    Request.form("quantity27") & Request.form("number27") & Request.form("item27") & Request.form("option27")& Request.form("price27")& vbcrlf&_
    Request.form("quantity28") & Request.form("number28") & Request.form("item28") & Request.form("option28")& Request.form("price28")& vbcrlf&_   
    Request.form("quantity29") & Request.form("number29") & Request.form("item29") & Request.form("option29")& Request.form("price29")& vbcrlf&_
    Request.form("quantity30") & Request.form("number30") & Request.form("item30") & Request.form("option30")& Request.form("price30")
%>


<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
set conn = server.createobject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"

    strorder_id = Request.Form("order_id")
    strorderlist = orderlist
    stremail = Request.Form("email")
    strcompany = Request.Form("company")
    strname = Request.Form("name")
    straddress = Request.Form("address")
    strcity = Request.Form("city")
    strzip = Request.Form("zip")
    strphone = Request.Form("phone")
    strcomment = Request.Form("comment")
    stretax = Request.Form("etax")
    streshipping = Request.Form("eshipping")
    strtotal = Request.Form("total")
    strcountry = Request.Form("country")
   
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM orders WHERE ido = 0"
        rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        If (rs.BOF or rs.EOF) Then
                rs.addnew
            rs("order_id") = Server.HTMLEncode(strorder_id)
            rs("orderlist") = Server.HTMLEncode(strorderlist)
            rs("email") = Server.HTMLEncode(stremail)
            rs("firma") = Server.HTMLEncode(strcompany)
            rs("navn") = Server.HTMLEncode(strname)
            rs("adresse") = Server.HTMLEncode(straddress)
            rs("by") = Server.HTMLEncode(strcity)
            rs("postnummer") = Server.HTMLEncode(strzip)
            rs("telefon") = Server.HTMLEncode(strphone)
            rs("kommentar") = Server.HTMLEncode(strcomment)
            rs("moms") = Server.HTMLEncode(stretax)
            rs("forsendelse") = Server.HTMLEncode(streshipping)
            rs("total") = Server.HTMLEncode(strtotal)
            rs("land") = Server.HTMLEncode(strcountry)
            rs("dato") = Now()
            rs.Update
    End If
        rs.Close
        Set rs = Nothing
      conn.Close
%>
<%

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

' This is my local SMTP server
JMail.ServerAddress = "xxx"

' This is me....
JMail.Sender = "xxx"
JMail.Subject = "xxx"


JMail.AddRecipient Request.form("email")
JMail.AddRecipient receipt

jmail.Body =  "Bekræftelse - Ordrenummer = " &Request.form("order_id") & vbcrlf & vbcrlf &_
"Email: " & Request.form("email")& vbcrlf&_
"Firma: " & Request.form("company")& vbcrlf&_
"Navn: " & Request.form("name")& vbcrlf&_
"Adresse: " & Request.form("address")& vbcrlf&_
"By: " & Request.form("city")& vbcrlf&_
"Postnummer: " & Request.form("zip")& vbcrlf&_
"Telefon: " & Request.form("phone")& vbcrlf&_
"Kommentar: " & Request.form("comment")& vbcrlf & vbcrlf&_
"Moms: " & txt_currency & " " & Request.form("etax")& vbcrlf&_
"Forsendelse: " & txt_currency & " " & Request.form("eshipping")& vbcrlf & vbcrlf&_
"Total: " & txt_currency & " " & Request.form("total")& vbcrlf & vbcrlf&_
    "Ordre:" & vbcrlf&_
    Request.form("quantity1") & Request.form("number1") & Request.form("item1") & Request.form("option1")& Request.form("price1")& vbcrlf&_
    Request.form("quantity2") & Request.form("number2") & Request.form("item2") & Request.form("option2")& Request.form("price2")& vbcrlf&_
    Request.form("quantity3") & Request.form("number3") & Request.form("item3") & Request.form("option3")& Request.form("price3")& vbcrlf&_
    Request.form("quantity4") & Request.form("number4") & Request.form("item4") & Request.form("option4")& Request.form("price4")& vbcrlf&_
    Request.form("quantity5") & Request.form("number5") & Request.form("item5") & Request.form("option5")& Request.form("price5")& vbcrlf&_
    Request.form("quantity6") & Request.form("number6") & Request.form("item6") & Request.form("option6")& Request.form("price6")& vbcrlf&_
    Request.form("quantity7") & Request.form("number7") & Request.form("item7") & Request.form("option7")& Request.form("price7")& vbcrlf&_
    Request.form("quantity8") & Request.form("number8") & Request.form("item8") & Request.form("option8")& Request.form("price8")& vbcrlf&_   
    Request.form("quantity9") & Request.form("number9") & Request.form("item9") & Request.form("option9")& Request.form("price9")& vbcrlf&_
    Request.form("quantity10") & Request.form("number10") & Request.form("item10") & Request.form("option10")& Request.form("price10")& vbcrlf&_
    Request.form("quantity11") & Request.form("number11") & Request.form("item11") & Request.form("option11")& Request.form("price11")& vbcrlf&_
    Request.form("quantity12") & Request.form("number12") & Request.form("item12") & Request.form("option12")& Request.form("price12")& vbcrlf&_
    Request.form("quantity13") & Request.form("number13") & Request.form("item13") & Request.form("option13")& Request.form("price13")& vbcrlf&_
    Request.form("quantity14") & Request.form("number14") & Request.form("item14") & Request.form("option14")& Request.form("price14")& vbcrlf&_
    Request.form("quantity15") & Request.form("number15") & Request.form("item15") & Request.form("option15")& Request.form("price15")& vbcrlf&_
    Request.form("quantity16") & Request.form("number16") & Request.form("item16") & Request.form("option16")& Request.form("price16")& vbcrlf&_
    Request.form("quantity17") & Request.form("number17") & Request.form("item17") & Request.form("option17")& Request.form("price17")& vbcrlf&_
    Request.form("quantity18") & Request.form("number18") & Request.form("item18") & Request.form("option18")& Request.form("price18")& vbcrlf&_   
    Request.form("quantity19") & Request.form("number19") & Request.form("item19") & Request.form("option19")& Request.form("price19")& vbcrlf&_
    Request.form("quantity20") & Request.form("number20") & Request.form("item20") & Request.form("option20")& Request.form("price20")& vbcrlf&_
    Request.form("quantity21") & Request.form("number21") & Request.form("item21") & Request.form("option21")& Request.form("price21")& vbcrlf&_
    Request.form("quantity22") & Request.form("number22") & Request.form("item22") & Request.form("option22")& Request.form("price22")& vbcrlf&_
    Request.form("quantity23") & Request.form("number23") & Request.form("item23") & Request.form("option23")& Request.form("price23")& vbcrlf&_
    Request.form("quantity24") & Request.form("number24") & Request.form("item24") & Request.form("option24")& Request.form("price24")& vbcrlf&_
    Request.form("quantity25") & Request.form("number25") & Request.form("item25") & Request.form("option25")& Request.form("price25")& vbcrlf&_
    Request.form("quantity26") & Request.form("number26") & Request.form("item26") & Request.form("option26")& Request.form("price26")& vbcrlf&_
    Request.form("quantity27") & Request.form("number27") & Request.form("item27") & Request.form("option27")& Request.form("price27")& vbcrlf&_
    Request.form("quantity28") & Request.form("number28") & Request.form("item28") & Request.form("option28")& Request.form("price28")& vbcrlf&_   
    Request.form("quantity29") & Request.form("number29") & Request.form("item29") & Request.form("option29")& Request.form("price29")& vbcrlf&_
    Request.form("quantity30") & Request.form("number30") & Request.form("item30") & Request.form("option30")& Request.form("price30")
   



JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' Send it...
JMail.Execute

response.redirect "findorder.asp?ordernumber='" & Request.form("order_id") & "'"

%>

Kommentar: ellebaek
11/06-2003 14:37:59

Nej, den melder

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/shop/findorder.asp, line 28

rs.Open sql, conn, 3, 3

if request.form("order") <> "" then
  order = CInt(request.form("order"))
else
  order = dinString
end if

Jeg er interesseret i denne løsning selvom det giver:

Microsoft VBScript runtime error '800a0006'

Overflow: 'CInt'

/shop/findorder.asp, line 20

er det altid sådan et der kommer et tal ud af form-vejen og en string ud af querystring-vejen

prøv lige at benytte det her...

if request.form("order") <> "" then
  order = CInt(request.form("order"))
else
  order = CInt(request.querystring("navn"))
end if

ellebaek --> Det holder bare ikke hvis der er tegn i "tallet"

nej, det gør det ikke....

Men hvis det kan løse hans problem så længe der ikke er tegn i...

nu kender jeg jo ikke designet - men for mig at se lyder det lidt underligt at det er en nødvendighed at ordrenummeret skal indeholde karakterer

okay db'en er ændret til TAL

så benytter du...

"select * from tabel where ordre_id = " & ordrenumber

Så burde det her virke:

if request.form("order") <> "" then
  order = CInt(request.form("order"))
else
  order = CInt(request.querystring("navn"))
end if

sammen med den SQL ellebaek lavede læ 14:48:47

findordre.asp skal altså være:

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=CInt(Request.Querystring("ordernumber"))
else
ordernumber=CInt(request.form("order"))
End If

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = " & ordernumber
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

stadig overflow

det tænkte jeg nok...

prøv lige det her i stedet...

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=CInt(Request.Querystring("ordernumber"))
else
ordernumber=request.form("order")
End If

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = " & ordernumber
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

hvad indeholder ordernumber eller order nu her hvor du tester det?

kun tal

eks.: 7741234

hvad fik du ved det jeg skrev til sidst ?

hvad siger den hvis du udelader CInt i begge

kovalt -> kan man ikke, da request.querystring returnere en streng...

Fra stringvejen.asp

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CInt'

/shop/findorder.asp, line 18

nu virker formvejen til gengæld

prøv med CLng i stedet for CInt

html -> virkede formvejen.asp som den skal med det sidste jeg skrev ?

ellebaek --> jeg menes jeg da at have gjort - så længe strengen kun indeholder tal... men det kan da godt være du har ret :-)

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CLng'

/shop/findorder.asp, line 18

det kan man ikke, heller ikke selvom det kun er tal, det er kun ved request.form det kan lade sig gøre---

problemet med Int er at den kun kan indeholde tal i intervallet -32738 til +37767, hvilket bliver overskredet af dit ordrenummer Lng skulle kunne gøre det :-)

Kommentar: ellebaek
11/06-2003 14:57:18

Yes

lækkert...

Så kan jeg også bikse resten...

2 sek. så er den der...

Det er mærkeligt at det ene funger på den ene måde og den anden på den anden måde

Jeg er helt slået ud og overvældet over denne entusiasme for at hjælpe mig.

Jeg sætter virkelig pris på det.

Indtil videre TUSIND TAK begge

Med dette her:

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=CInt(Request.Querystring("ordernumber"))
else
ordernumber=request.form("order")
End If

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = " & ordernumber
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

hvilken en af vejene virker så?

FANDT FEJLEN!!!!

Kommentar: html_wizard
11/06-2003 14:39:55

NEDERSTE LINIE

response.redirect "findorder.asp?ordernumber='" & Request.form("order_id") & "'"

///

response.redirect "findorder.asp?ordernumber=" & Request.form("order_id")

:-) - DOW - kan ikke se skoven for bare træer - LOL

Nu virker det som det skal så?

TUSIND TAK

fandt jeg også¨...

Men ret lige din side så den er lidt pænere kodet..

Som her:
<%
ordliste = ""
for i = 0 To 30
orderlist= ordliste & Request.form("quantity" & i) & Request.form("number" & i) & Request.form("item" & i) & Request.form("option" & i) & Request.form("price" & i) & vbcrlf
next

%>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
set conn = server.createobject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"

    strorder_id = Request.Form("order_id")
    strorderlist = orderlist
    stremail = Request.Form("email")
    strcompany = Request.Form("company")
    strname = Request.Form("name")
    straddress = Request.Form("address")
    strcity = Request.Form("city")
    strzip = Request.Form("zip")
    strphone = Request.Form("phone")
    strcomment = Request.Form("comment")
    stretax = Request.Form("etax")
    streshipping = Request.Form("eshipping")
    strtotal = Request.Form("total")
    strcountry = Request.Form("country")
   
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM orders WHERE ido = 0"
        rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        If (rs.BOF or rs.EOF) Then
                rs.addnew
            rs("order_id") = Server.HTMLEncode(strorder_id)
            rs("orderlist") = Server.HTMLEncode(strorderlist)
            rs("email") = Server.HTMLEncode(stremail)
            rs("firma") = Server.HTMLEncode(strcompany)
            rs("navn") = Server.HTMLEncode(strname)
            rs("adresse") = Server.HTMLEncode(straddress)
            rs("by") = Server.HTMLEncode(strcity)
            rs("postnummer") = Server.HTMLEncode(strzip)
            rs("telefon") = Server.HTMLEncode(strphone)
            rs("kommentar") = Server.HTMLEncode(strcomment)
            rs("moms") = Server.HTMLEncode(stretax)
            rs("forsendelse") = Server.HTMLEncode(streshipping)
            rs("total") = Server.HTMLEncode(strtotal)
            rs("land") = Server.HTMLEncode(strcountry)
            rs("dato") = Now()
            rs.Update
    End If
        rs.Close
        Set rs = Nothing
      conn.Close
%>
<%

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

' This is my local SMTP server
JMail.ServerAddress = "xxx"

' This is me....
JMail.Sender = "xxx"
JMail.Subject = "xxx"


JMail.AddRecipient Request.form("email")
JMail.AddRecipient receipt

jmail.Body =  "Bekræftelse - Ordrenummer = " &Request.form("order_id") & vbcrlf & vbcrlf &_
"Email: " & Request.form("email")& vbcrlf&_
"Firma: " & Request.form("company")& vbcrlf&_
"Navn: " & Request.form("name")& vbcrlf&_
"Adresse: " & Request.form("address")& vbcrlf&_
"By: " & Request.form("city")& vbcrlf&_
"Postnummer: " & Request.form("zip")& vbcrlf&_
"Telefon: " & Request.form("phone")& vbcrlf&_
"Kommentar: " & Request.form("comment")& vbcrlf & vbcrlf&_
"Moms: " & txt_currency & " " & Request.form("etax")& vbcrlf&_
"Forsendelse: " & txt_currency & " " & Request.form("eshipping")& vbcrlf & vbcrlf&_
"Total: " & txt_currency & " " & Request.form("total")& vbcrlf & vbcrlf&_
    "Ordre:" & vbcrlf&_
for n = 1 to 30
    response.write Request.form("quantity" & n) & Request.form("number" & n) & Request.form("item" & n) & Request.form("option" & n)& Request.form("price" & n)& vbcrlf
next



JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' Send it...
JMail.Execute

response.redirect "findorder.asp?ordernumber=" & Request.form("order_id")

%>

Nu når jeg fat i jer og det drejer sig om næsten samme sag

Hvordan kan man beskrive at formvejen har indtastet et ikke eksisterende ordernummer

Kommentar: ellebaek
11/06-2003 15:08:05

okay tak

<%
If Request.Querystring("ordernumber") <> "" then
ordernumber=Request.Querystring("ordernumber")
else
ordernumber= request.form("order")
End If
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DBQ=xxx;Driver={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM orders where order_id = '" & ordernumber & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.eof
'der er ikke nogen ordre med det nr
else
der er en ordre
end if
%>

Mange tak kig evt på

http://www.eksperten.dk/spm/362874