hej steen
den køre fint i ie
<!-- #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>Aloe Vera Shop</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="java script: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>
Ny bruger
Nybegynder
Opret
Preview
