Ciao
non capisco perche nun funge
ACCESS DB
ho le due tabelle MAIN e SUB ed effettivamente a questa pagina mi arrivano i dati perciò il Request.Querystring è giustocodice:<% dim ogge dim lingua dim ordine dim main lingua = Request.QueryString("language") main = Request.QueryString("main") ordine = Request.QueryString("order") ogge = Request.QueryString("item") 'inserisco in SUB 'Pesco il numero di ordine di Main in MAIN Dim RsPesco1 Set RsPesco1 = Server.CreateObject("ADODB.Recordset") RsPesco1.ActiveConnection = MM_Connessione11q_STRING RsPesco1.source = "SELECT * FROM MAIN WHERE Item ='" & main & "' AND Language = '" & lingua & "'" RsPesco1.CursorType = 0 RsPesco1.CursorLocation = 2 RsPesco1.LockType = 1 RsPesco1.Open() dim larry larry = (RsPesco1.Fields.Item("Ordine").Value) 'Pesco i dati da MAIN Dim RsPesco Set RsPesco = Server.CreateObject("ADODB.Recordset") RsPesco.ActiveConnection = MM_Connessione11q_STRING RsPesco.source = "SELECT * FROM MAIN WHERE Ordine = " & RsPesco1.Fields.Item("Ordine").Value & "" RsPesco.CursorType = 0 RsPesco.CursorLocation = 2 RsPesco.LockType = 1 RsPesco.Open() 'e inserisco il nuovo oggetto per ogni lingua in SUB dim inssub dim comandoinssub Do While not (RsPesco.EOF) Set inssub = Server.CreateObject("ADODB.Command") inssub.ActiveConnection = MM_Connessione11q_STRING comandoinssub = "INSERT INTO [SUB] (Item, Main, Language, Ordine) VALUES ('" & ogge & "', '" & main & "', '" & RsPesco.Fields.Item("Language").Value & "', 2)" inssub.CommandText = comandoinssub inssub.execute RsPesco1.MoveNext Loop inssub.ActiveConnection.Close %>
l'errore me lo da nella INSERT INTO
Graziecodice:Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

Rispondi quotando

