server aruba
il file send.asp fino a poco tempo fa funzionava su aruba, poi per l'invio di asp mail si è passati a cdosys
qualcuno mi può aiutare - questo è lo script che non funziona più -
come lo devo modificare?
<%
dim rubriken(100,4)
set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("/mdb-database/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 = ""
zusatz1 = ""
end if
response.write( platzhalter & "" & zusatz & rubriken(t,0) & zusatz1 & "
" & 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>PW99 MiniShop</title>
<link rel=stylesheet href="style.css" type="text/css">
</head>
<body bgcolor="lightgreen">
<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]pics/<%=banner%>[/img]</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">
<%=n_produkte%></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">
<%=n_info%></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<%=n_info1%></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
Home</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)
Set Mail = Server.CreateObject("Persits.MailSender")
mail.host = "www.iperserv.com"
mail.from = email
mail.fromname = denominazione
mail.addaddress "info@iperserv.com"
mail.subject = mail_subject
Mail.body = mailText
Mail.IsHTML = False
on error resume next
Mail.Send
'Mail.Sendtoqueue
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">Provvederemo al più presto alla spedizione!</td>
</tr>
<tr bgcolor="<%=color2%>">
<td width="100%" align="left">
<%if ok = 0 then %>
<%=l_sendtext%>
<%else%>
<%=l_nosendtext%>
<center>back</center>
<%end if%></td>
</tr>
</table>
</td></tr></table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<center> [img]iper.gif[/img]
</center>
<%
rs.close
db.close
set rs = nothing
set db = nothing
Erase rubriken
%>
</body>
</html>
grazieatutti.asp
Rispondi quotando
