mi da questo error
perche??
Query-based update failed because the row to update could not be found.
il bello che in locale non me lo dù su server windows2003 si
mi da questo error
perche??
Query-based update failed because the row to update could not be found.
il bello che in locale non me lo dù su server windows2003 si
http://www.danguru.com
-------------------------
http://www.mambo.it
Sembra non trovi il record da aggiornare...
Passi tutti i parametri?
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
<%
id = request("id")
msg = request("msg")
ann = request("ann")
evaso = request("evaso")
track = request("track")
sconto= request("sconto")
paginaOriginale="../ordine2.asp?id="& id
if track = "" and sconto = "" then
sql = "SELECT * FROM tracking"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.addnew
rs.fields("ido") = id
rs.fields("tipo") = msg
rs.fields("data") = now
rs.update
end if
sql = "SELECT * FROM ordini where id = "&id
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn, 3, 3
ling = rs2.fields("ling")
idm = rs2.fields("idm")
if evaso <> "" then
rs2.fields("evaso") = "s"
end if
if ann <> "" then
rs2.fields("annulato") = "s"
end if
if evaso <> "" or ann <> "" then
rs2.update
end if
if track <> "" then
rs2.fields("track") = track
end if
if sconto <> "" then
rs2.fields("sconto") = sconto
end if
if sconto <> "" or track <> "" then
rs2.update
end if
on error resume next
sql = "SELECT * FROM membri where id = "&idm
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open sql, conn, 3, 3
if ling = "ita" then
strMsgHeader = "Ciao" & rs3.fields("nome") & " " & rs3.fields("cnome") & " c'e' stata o hai fatto una modifica all'ordine n°:" & id & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Potrai visionare il tuo ordine alla pagina"& vbCrLf & vbcrlf
strMsgHeader = strMsgHeader & "http://www.gtworld.tv/ordine.asp?id="& id & vbCrLf & vbcrlf
strMsgHeader = strMsgHeader & "------------------------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Ciao"& vbCrLf
strMsgHeader = strMsgHeader & "Foxxy"& vbcrlf & vbcrlf
Set Mail2 = Server.CreateObject("CDONTS.NewMail")
Mail2.MailFormat = html
Mail2.from = "ordini@gtworld.tv"
Mail2.to = rs3.fields("email")
Mail2.Subject = "Modifica dell' Ordine n°:" & id
Mail2.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail2.Importance = 2
Mail2.Send
end if
if ling <> "ita" then
strMsgHeader = "Hello" & rs3.fields("nome") & " " & rs3.fields("cnome") & " your order N°" & id & "had a change " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Yuo can see your order on page"& vbCrLf & vbcrlf
strMsgHeader = strMsgHeader & "http://www.gtworld.tv/ordine.asp?id="& id & vbCrLf & vbcrlf
strMsgHeader = strMsgHeader & "------------------------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "bye"& vbCrLf
strMsgHeader = strMsgHeader & "Foxxy"& vbcrlf & vbcrlf
Set Mail2 = Server.CreateObject("CDONTS.NewMail")
Mail2.MailFormat = html
Mail2.from = "ordini@gtworld.tv"
Mail2.to = rs3.fields("email")
Mail2.Subject = "Modded on order n°:" & id
Mail2.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail2.Importance = 2
Mail2.Send
end if
%>
<script language="JavaScript">
window.location.replace("<%=paginaOriginale%>");
</script>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
http://www.danguru.com
-------------------------
http://www.mambo.it
cmq ho risolto
dovevo cancellare alcune cose sulla linea 44
grazie comunque
http://www.danguru.com
-------------------------
http://www.mambo.it
e qual'è la linea 44 per curiosità?
rs.addNew funziona?
Permessi di invio
Rispondi quotando