ho questo blocco di codice:
<%
'definisco paramentro url
Dim LineNum
LineNum = request("LineNum")
%>
<%
Dim pdn1_clone
Dim pdn1_clone_numRows
Set pdn1_clone = Server.CreateObject("ADODB.Recordset")
pdn1_clone.ActiveConnection = MM_conn_STRING
pdn1_clone.Source = "SELECT * FROM PDN1_clone WHERE LineNum = LineNum ORDER BY data_movim DESC"
'oitm.ItemName, oitm.ItemCode, causali.codice, causali.descrizione FROM pdn1_clone, causali, oitm WHERE pdn1_clone.causale = causali.codice and pdn1_clone.ItemCode = oitm.ItemCode order by pdn1_clone.data_movim
pdn1_clone.CursorType = 0
pdn1_clone.CursorLocation = 2
pdn1_clone.LockType = 1
pdn1_clone.Open()
pdn1_clone_numRows = 0
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT pdn1_clone.EOF))
%>
<%
'definisco var per filtri
Dim articolo
articolo = (pdn1_clone.Fields.Item("ItemCode").Value)
Dim causale
causale = (pdn1_clone.Fields.Item("causale").Value)
%>
<%
Dim articoli
Dim articoli_numRows
Set articoli = Server.CreateObject("ADODB.Recordset")
articoli.ActiveConnection = MM_conn_STRING
articoli.Source = "SELECT oitm.ItemCode, oitm.ItemName FROM oitm WHERE oitm.ItemCode = " & articolo & ""
articoli.CursorType = 0
articoli.CursorLocation = 2
articoli.LockType = 1
articoli.Open()
articoli_numRows = 0
%>
<%
Dim causali
Dim causali_numRows
Set causali = Server.CreateObject("ADODB.Recordset")
causali.ActiveConnection = MM_conn_STRING
causali.Source = "SELECT causali.codice, causali.descrizione FROM causali WHERE causali.codice = " & causale & ""
causali.CursorType = 0
causali.CursorLocation = 2
causali.LockType = 1
causali.Open()
causali_numRows = 0
%>
HTML HTML
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
pdn1_clone.MoveNext()
Wend
%>
E fin qui ci siamo...
se la tabella ha almeno un record tutto va liscio ma se la tabella è vuota mi da un errore visto che le variabili dei rs successivi a pdn1_clone sono generate dal rs pnd1_clone stesso.
in PHP esiste l' istruzione BRAK che stoppa un ciclo in ASP invece??
ce qualche istruzione??
Grazie
Rispondi quotando
