Hjälp -> betalning

det verkar som om det du vill göra är väldigt enkelt...

1. Skapa en ny kolumn i tabellen där du sparar beställningarna där du sparar storleken...

2. Visa oss koden på beställningssidan så skall jag säga vad du ska ändra...

Okej

Här är koden:

<table width="90%" border="0" cellpadding="2">
<%
if (cint(r)>-1) then
sql = "select bezeichnung, beschreibung, bild, artikelnr, preis, id from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
while not rs.eof
count = count +1
if count>s and count<=(s+10) then
id = rs("id")
%>
<tr>
<td align="center" width="20%">
<%if len(rs("bild"))>2 then%>
<img src="pics/<%=rs("bild")%>" border="0">
<%else%>
<img src=
"pics/blanko.gif" border="0" width="150" height="150">
<%end if%>
</td>
<td class="text" align="left" width="80%" valign="top"> <b><%=rs("bezeichnung")%></b> (<%=rs("artikelnr")%>)<br>
<br>
<%=FormatMessage(rs("beschreibung"))%><br>
<br>
<b><%=FormatNumber(rs("preis"),2,,-2)%> <%=l_list7%></b><br>
<br>
<form name="form<%=rs("id")%>" action="add.asp?a_id=<%=id%>" target="addFrame" method="post">
<a class="text" href="javascript:document.form<%=id%>.submit();"><img border="0" src="pics/warenkorb.gif" align="absmiddle"> <%=s_add_product%> </a>
<input type="text" name="items<%=id%>" size="3" value="1">
<input type="hidden" name="preis<%=id%>" value="<%=rs("preis")%>">
<input type="hidden" name="nr<%=id%>" value="<%=rs("artikelnr")%>">
<input type="hidden" name="bez<%=id%>" value="<%=rs("bezeichnung")%>">
</form>
</td>
</tr>
<tr>
<td colspan="2" width="100%">
<hr heigth="1" size="0" color="#000000">
</td>
</tr>
<%
end if
rs.movenext
wend

              if count \> 0 then 
              sql = "select count(id) as alleEintraege from produkte where rubrik = " & r &  sqlZusatz 
              set rs = db.Execute(sql)
              alleEintraege = int(rs("alleEintraege"))
              %\>

<tr>
<td width="100%" bgcolor="<%=color2%>" colspan="2" class="text">
<p align="right"> Page
<%for t = 0 to fix((alleEintraege-1)/10)%>
<a class="text" href=
"index1.asp?s=<%=t%>&r=<%=r%>">
<%if t=(s/10) then%>
<b>
<%end if%>
<%=t+1%>
<%if t=(s/10) then%>
</b>
<%end if%>
</a>  </p>
</td>
</tr>
<%
next
else
%>
<tr>
<td class="text" align="center"> <br>
<br>
<%=s_no_product%> </td>
</tr>
<%end if%>
<%else%>
<tr>
<td class="text" width="100%">
<center>
<b><%=start_title%></b>
</center>
</td>
</tr>
<tr>
<td class="text" align="left" width="100%"> <%=start_body%> </td>
</tr>
<%end if%>
</table>

Hehe ett tyskt script :) "Dopzel stifez lighterz"

öh, det var lite annorlunda uppbyggt mot vad jag är van... Alla tabellnamnen är olika...

jag behöver sidan add.asp också...

lyckades du skapa en till kolumn i tabellen? Annars tror jag du kan skicka med databasen som fil här på forumet??

okej

<%
id = request.querystring("a_id")
items = request.form("items"&id)
preis = request.form("preis"&id)
artikelnr = request.form("nr"&id)
bez = request.form("bez"&id)
response.write("Session items:" & session("items"))

if isempty(session("warenkorb")) then
dim warenkorb(100,4)
session("items")=-1
session("warenkorb") = warenkorb
i = -1
else
i = session("items")
warenkorb = session("warenkorb")
end if

if len(id)>0 and len(items)>0 then
if items>0 and i <100 then
i = i + 1
warenkorb(i,0) = items
warenkorb(i,1) = id
warenkorb(i,2) = preis
warenkorb(i,3) = artikelnr
warenkorb(i,4) = bez
session("items") = i
session("warenkorb") = warenkorb
Erase warenkorb
%>
<script>
parent.content.location.reload();
</script>
<%
end if
end if
%>

ne har inte ens acess hemma :)

hmm, ordern sparas visst i en global variabel... antar att den mailas till dig när man skickar beställningen?

Denna kod lägger du på beställningssidan

<table width="90%" border="0" cellpadding="2">
<%
if (cint(r)>-1) then
sql = "select bezeichnung, beschreibung, bild, artikelnr, preis, id from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
while not rs.eof
count = count +1
if count>s and count<=(s+10) then
id = rs("id")
%>
<tr>
<td align="center" width="20%">
<%if len(rs("bild"))>2 then%>
<img src="pics/<%=rs("bild")%>" border="0">
<%else%>
<img src=
"pics/blanko.gif" border="0" width="150" height="150">
<%end if%>
</td>
<td class="text" align="left" width="80%" valign="top"> <b><%=rs("bezeichnung")%></b> (<%=rs("artikelnr")%> )<br>
<br>
<%=FormatMessage(rs("beschreibung"))%><br>
<br>
<b><%=FormatNumber(rs("preis"),2,,-2)%> <%=l_list7%></b><br>
<br>
<form name="form<%=rs("id")%>" action="add.asp?a_id=<%=id%>" target="addFrame" method="post">
<a class="text" href="javascript:document.form<%=id%>.submit();"><img border="0" src="pics/warenkorb.gif" align="absmiddle"> <%=s_add_product%> </a>
<input type="text" name="items<%=id%>" size="3" value="1">
<select name="storlek<%=id%>">
	<option value="S">Small</option>
	<option value="M">Medium</option>
	<option value="L">Large</option>
	<option value="XL">Extra Large</option>
</select>
<input type="hidden" name="preis<%=id%>" value="<%=rs("preis")%>">
<input type="hidden" name="nr<%=id%>" value="<%=rs("artikelnr")%>">
<input type="hidden" name="bez<%=id%>" value="<%=rs("bezeichnung")%>">
</form>
</td>
</tr>
<tr>
<td colspan="2" width="100%">
<hr heigth="1" size="0" color="#000000">
</td>
</tr>
<%
end if
rs.movenext
wend

if count > 0 then
sql = "select count(id) as alleEintraege from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
alleEintraege = int(rs("alleEintraege"))
%>
<tr>
<td width="100%" bgcolor="<%=color2%>" colspan="2" class="text">
<p align="right"> Page
<%for t = 0 to fix((alleEintraege-1)/10)%>
<a class="text" href=
"index1.asp?s=<%=t%>&r=<%=r%>">
<%if t=(s/10) then%>
<b>
<%end if%>
<%=t+1%>
<%if t=(s/10) then%>
</b>
<%end if%>
</a>  </p>
</td>
</tr>
<%
next
else
%>
<tr>
<td class="text" align="center"> <br>
<br>
<%=s_no_product%> </td>
</tr>
<%end if%>
<%else%>
<tr>
<td class="text" width="100%">
<center>
<b><%=start_title%></b>
</center>
</td>
</tr>
<tr>
<td class="text" align="left" width="100%"> <%=start_body%> </td>
</tr>
<%end if%>
</table>

Denna kod lägger du på add.asp

 <%
id = request.querystring("a_id")
items = request.form("items"&id)
preis = request.form("preis"&id)
artikelnr = request.form("nr"&id)
bez = request.form("bez"&id)
storlek = request.form("storlek"&id)
response.write("Session items:" & session("items"))

if isempty(session("warenkorb")) then
dim warenkorb(100,5)
session("items")=-1
session("warenkorb") = warenkorb
i = -1
else
i = session("items")
warenkorb = session("warenkorb")
end if

if len(id)>0 and len(items)>0 then
if items>0 and i <100 then
i = i + 1
warenkorb(i,0) = items
warenkorb(i,1) = id
warenkorb(i,2) = preis
warenkorb(i,3) = artikelnr
warenkorb(i,4) = bez
warenkorb(i,5) = storlek
session("items") = i
session("warenkorb") = warenkorb
Erase warenkorb
%>
<script>
parent.content.location.reload();
</script>
<%
end if
end if
%>

Sen måste det finnas en till sida där man skickar iväg beställningen... För det sparas inte i en databas som jag trodde...

Kan det vara denna här?

Send.asp heter den

<!-- #include file="config.asp" -->
<%
dim rubriken(100,4)

set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pw99_shop.mdb")
db.Open connect

sql = "select rubrik, id, parent, rank from rubriken order by rank"
set rs = db.Execute(sql)
while not rs.eof
if i<100 then
rubriken(i,0) = rs("rubrik")
rubriken(i,1) = rs("parent")
rubriken(i,2) = rs("id")
rubriken(i,3) = rs("rank")
end if
i=i+1
rs.movenext
wend
arrayLaenge=i-1

Function show_search(parent1, ebene)
if parent1 <> vbNullString then
for t = 0 to arrayLaenge
if rubriken(t,1) = parent1 then

				platzhalter=""
				for x= 0 to ebene
					platzhalter = platzhalter & "   "
				next
	
				if ebene = 0 then 
					zusatz = "\<b\>"
					zusatz1 = "\</b\>"	
				end if
				response.write( platzhalter &  "\<a class='text' href='index1.asp?r="&rubriken(t,2)&"'\>" & zusatz & rubriken(t,0) & zusatz1 & "\</a\>\<br\>" & chr(13))
				parent2 = rubriken(t,2)
				ebene1 = ebene +1
				show_search parent2, ebene1	
		end if
	next
end if

end function

function checkField(eingabe)
if len(eingabe)<1 then ok = 1
checkField = eingabe
end function

%>
<html>
<head>
<title>aa</title>

 \<link rel=stylesheet href="style.css" type="text/css"\>

</head>
<body bgcolor="<%=color4%>">

<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="700" class="text">
<tr>
<td width="100%" bgcolor="<%=color2%>" align="center" colspan = "2"><img src="pics/<%=banner%>"></td>
</tr>

  \<tr\>
    \<td width="200" bgcolor="\<%=color3%\>" align="center" valign="top"\>
    
    \<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center"\>
	 \<tr\>
	 \<td width="100%"\>
		\<table border="0" cellpadding="2" cellspacing="1" width="180" class="text"\>
  
  \<tr\>
    \<td width="100%" bgcolor="\<%=color1%\>" align="center"\>
    \<b\>\<%=n_produkte%\>\</b\>\</td\>
  \</tr\>
  \<tr\>
    \<td width="100%" bgcolor="\<%=color2%\>" align="left" valign="top"\>
    \<%show_search 0,0%\>
    \</td\>
  \</tr\>
   \<tr\>
    \<td width="100%" bgcolor="\<%=color1%\>" align="center"\>
    \<b\>\<%=n_info%\>\</b\>\</td\>
  \</tr\>
   \<tr\>
    \<td width="100%" bgcolor="\<%=color2%\>" align="left"\>
    \<a class="text" href="info.asp"\>\<%=n_info1%\>\</a\>\</td\>
  \</tr\>
  \<tr\>
\<td width="100%" bgcolor="\<%=color2%\>" align="left"\>
\<a class="text" href="index1.asp?r=-1"\>Home\</a\>\</td\>
\</tr\>
\</table\>

\</td\>
\</tr\>
\</table\>
\</td\>
\<td width="500" bgcolor="\<%=color2%\>" align="center" valign="top"\>

<%
ok = 0
if m_name = true then orderPerson = OrderPerson & l_name & ": " & checkField(request.form("m_name")) & chr(10) & chr(13)
if m_city = true then orderPerson = OrderPerson & l_city & ": " & checkField(request.form("m_city")) & chr(10) & chr(13)
if m_street = true then orderPerson = OrderPerson & l_street & ": " & checkField(request.form("m_street"))& chr(10) & chr(13)
if m_country = true then orderPerson = OrderPerson & l_country & ": " & checkField(request.form("m_country"))& chr(10) & chr(13)
if m_phone = true then orderPerson = OrderPerson & l_phone & ": " & checkField(request.form("m_phone"))& chr(10) & chr(13)
if m_mailadress = true then orderPerson = OrderPerson & l_mailadress & ": " & checkField(request.form("m_mailadress"))& chr(10) & chr(13)
if m_card_type = true then orderPerson = OrderPerson & l_card_type & ": " & checkField(request.form("m_card_type"))& chr(10) & chr(13)
if m_card_number = true then orderPerson = OrderPerson & l_card_number & ": " & checkField(request.form("m_card_number"))& chr(10) & chr(13)
if m_card_expiration_date = true then orderPerson = OrderPerson & l_card_expiration_date & ": " & checkField(request.form("m_card_expiration_date"))& chr(10) & chr(13)
if m_comment = true then orderPerson = OrderPerson & l_comment & ": " & checkField(request.form("m_comment"))& chr(10) & chr(13)

if ok = 0 then
warenkorb = session("warenkorb")
if isArray(warenkorb) then
i = session("items")
mailText = mailText & chr(13) & chr(10) & chr(13) & chr(10)
mailText = mailText & orderPerson & chr(13) & chr(10)
mailtext = mailText & "----------------------------------------" & chr(13) & chr(10)
for t = o to i
if (warenkorb(t,0)) <> "" then
gesamt_artikel = + warenkorb(t,0) * warenkorb(t,2)
gesamt = FormatNumber(gesamt + gesamt_artikel,2,,-2)
mailText = mailText & l_list1 & " : " & warenkorb(t,0) & chr(13)& chr(10)
mailText = mailText & l_list2 & " : " & warenkorb(t,3) & chr(13)& chr(10)
mailText = mailText & l_list3 & " : " & warenkorb(t,4) & chr(13)& chr(10)
mailText = mailText & l_list4 & " : " & FormatNumber(warenkorb(t,2),2,,-2) & chr(13)& chr(10)
mailtext = mailtext & l_list5 & " : " & FormatNumber(gesamt_artikel,2,,-2)& chr(13) & chr(10)
mailtext = mailText & "----------------------------------------" & chr(13) & chr(10)
end if
next
mailtext = mailText & "========================================" & chr(13) & chr(10)
mailtext = mailtext & l_list6 & " : " & FormatNumber(gesamt,2,,-2)

if mail_component = "jmail" then 
	Set JMail = Server.CreateObject("JMail.SMTPMail") 
	JMail.ServerAddress = mail_host & ":25"
	JMail.Sender = mail_sender
	JMail.Subject = mail_subject
	JMail.addrecipient mail_empfaenger			
	JMail.Body = mailText
	JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
	JMail.Execute
	Set JMail = nothing
	session.abandon
else

Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.MailFormat = 0
Mailer.BodyFormat = 1
Mailer.From = mail_sender
Mailer.To = mail_empfaenger
Mailer.Subject = mail_subject
Mailer.Body = mailText
Mailer.Send
Set Mailer= Nothing end if

end if
end if
%>

<table width="100" border="0" cellpadding="0" cellspacing = "0" bgcolor="#000000">
<tr><td>
<table border="0" cellpadding="2" cellspacing="1" width="400" class="text">
<tr bgcolor="<%=color2%>">
<td width="100%" align="center"><b>Vielen Dank!</b></td>
</tr>

<tr bgcolor="<%=color2%>">
<td width="100%" align="left">
<%if ok = 0 then %>
<%=l_sendtext%>
<%else%>
<%=l_nosendtext%>
<br><center><a class="text" href="javascript:history.go(-1);">back</a></center>
<%end if%></td>
</tr>

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

<br>
<%
rs.close
db.close
set rs = nothing
set db = nothing
Erase rubriken
%>
</body>
</html>

stumodum: vänligen använd [kod]-taggar när du postar kod, så blir din kod betydligt mer lättläst.

mvh

fel trå

fel tråd

<!-- #include file="config.asp" -->
<%
dim rubriken(100,4)

set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pw99_shop.mdb")
db.Open connect

sql = "select rubrik, id, parent, rank from rubriken order by rank"
set rs = db.Execute(sql)
while not rs.eof
if i<100 then
rubriken(i,0) = rs("rubrik")
rubriken(i,1) = rs("parent")
rubriken(i,2) = rs("id")
rubriken(i,3) = rs("rank")
end if
i=i+1
rs.movenext
wend
arrayLaenge=i-1

Function show_search(parent1, ebene)
if parent1 <> vbNullString then
for t = 0 to arrayLaenge
if rubriken(t,1) = parent1 then

platzhalter=""
for x= 0 to ebene
platzhalter = platzhalter & "&nbsp;&nbsp;&nbsp;"
next

if ebene = 0 then
zusatz = "<b>"
zusatz1 = "</b>"
end if
response.write( platzhalter & "<a class='text' href='index1.asp?r="&rubriken(t,2)&"'>" & zusatz & rubriken(t,0) & zusatz1 & "</a><br>" & chr(13))
parent2 = rubriken(t,2)
ebene1 = ebene +1
show_search parent2, ebene1
end if
next
end if
end function

function checkField(eingabe)
if len(eingabe)<1 then ok = 1
checkField = eingabe
end function

%>
<html>
<head>
<title>aa</title>

<link rel=stylesheet href="style.css" type="text/css">

</head>
<body bgcolor="<%=color4%>">

<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="700" class="text">
<tr>
<td width="100%" bgcolor="<%=color2%>" align="center" colspan = "2"><img src="pics/<%=banner%>"></td>
</tr>

<tr>
<td width="200" bgcolor="<%=color3%>" align="center" valign="top">

<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="180" class="text">

<tr>
<td width="100%" bgcolor="<%=color1%>" align="center">
<b><%=n_produkte%></b></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left" valign="top">
<%show_search 0,0%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color1%>" align="center">
<b><%=n_info%></b></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<a class="text" href="info.asp"><%=n_info1%></a></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<a class="text" href="index1.asp?r=-1">Home</a></td>
</tr>
</table>

</td>
</tr>
</table>
</td>
<td width="500" bgcolor="<%=color2%>" align="center" valign="top">

<%
ok = 0
if m_name = true then orderPerson = OrderPerson & l_name & ": " & checkField(request.form("m_name")) & vbCrLf
if m_city = true then orderPerson = OrderPerson & l_city & ": " & checkField(request.form("m_city")) & vbCrLf
if m_street = true then orderPerson = OrderPerson & l_street & ": " & checkField(request.form("m_street"))& vbCrLf
if m_country = true then orderPerson = OrderPerson & l_country & ": " & checkField(request.form("m_country"))& vbCrLf
if m_phone = true then orderPerson = OrderPerson & l_phone & ": " & checkField(request.form("m_phone"))& vbCrLf
if m_mailadress = true then orderPerson = OrderPerson & l_mailadress & ": " & checkField(request.form("m_mailadress"))& vbCrLf
if m_card_type = true then orderPerson = OrderPerson & l_card_type & ": " & checkField(request.form("m_card_type"))& vbCrLf
if m_card_number = true then orderPerson = OrderPerson & l_card_number & ": " & checkField(request.form("m_card_number"))& vbCrLf
if m_card_expiration_date = true then orderPerson = OrderPerson & l_card_expiration_date & ": " & checkField(request.form("m_card_expiration_date"))& vbCrLf
if m_comment = true then orderPerson = OrderPerson & l_comment & ": " & checkField(request.form("m_comment"))& vbCrLf

if ok = 0 then
warenkorb = session("warenkorb")
if isArray(warenkorb) then
i = session("items")
mailText = mailText & vbCrLf & vbCrLf
mailText = mailText & orderPerson & vbCrLf
mailtext = mailText & "----------------------------------------" & vbCrLf
for t = o to i
if (warenkorb(t,0)) <> "" then
gesamt_artikel = + warenkorb(t,0) * warenkorb(t,2)
gesamt = FormatNumber(gesamt + gesamt_artikel,2,,-2)
mailText = mailText & l_list1 & " : " & warenkorb(t,0) & vbCrLf
mailText = mailText & l_list2 & " : " & warenkorb(t,3) & vbCrLf
mailText = mailText & l_list3 & " : " & warenkorb(t,4) & vbCrLf
mailText = mailText & l_list3 & " : " & warenkorb(t,4) & vbCrLf
mailText = mailText & "Storlek: " & warenkorb(t,5) & vbCrLf
mailText = mailText & l_list4 & " : " & FormatNumber(warenkorb(t,2),2,,-2) & vbCrLf
mailtext = mailtext & l_list5 & " : " & FormatNumber(gesamt_artikel,2,,-2)& vbCrLf
mailtext = mailText & "----------------------------------------" & vbCrLf
end if
next
mailtext = mailText & "========================================" & vbCrLf
mailtext = mailtext & l_list6 & " : " & FormatNumber(gesamt,2,,-2)

if mail_component = "jmail" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = mail_host & ":25"
JMail.Sender = mail_sender
JMail.Subject = mail_subject
JMail.addrecipient mail_empfaenger
JMail.Body = mailText
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set JMail = nothing
session.abandon
else
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.MailFormat = 0
Mailer.BodyFormat = 1
Mailer.From = mail_sender
Mailer.To = mail_empfaenger
Mailer.Subject = mail_subject
Mailer.Body = mailText
Mailer.Send
Set Mailer= Nothing end if

end if
end if
%>

<table width="100" border="0" cellpadding="0" cellspacing = "0" bgcolor="#000000">
<tr><td>
<table border="0" cellpadding="2" cellspacing="1" width="400" class="text">
<tr bgcolor="<%=color2%>">
<td width="100%" align="center"><b>Vielen Dank!</b></td>
</tr>

<tr bgcolor="<%=color2%>">
<td width="100%" align="left">
<%if ok = 0 then %>
<%=l_sendtext%>
<%else%>
<%=l_nosendtext%>
<br><center><a class="text" href="javascript:history.go(-1);">back</a></center>
<%end if%></td>
</tr>

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

<br>
<%
rs.close
db.close
set rs = nothing
set db = nothing
Erase rubriken
%>
</body>
</html>

det verkar vara nått fel på add.asp oxå? När jag skall lägga till en vara i kundkorgen så kommer jag upp till en blank sida där det står Session items:1 det verkar som den inte kopplar ihop med själva kundkorgen?? kan det ha med databasen att göra? Pga att kille i förra tråden ville jag skulle skicka med databasen så skulle han kolla den med, men den skicka han aldrig tillbaka kan tänka mig att det saknas nått där?.

add.asp använder inte databasen, så det har jag svårt att tänka mig. Hur ser ditt frameset ut?