Ciao
non capisco perche nun funge
ACCESS DB
codice:
<%
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
%>
ho le due tabelle MAIN e SUB ed effettivamente a questa pagina mi arrivano i dati perciò il Request.Querystring è giusto
l'errore me lo da nella INSERT INTO
codice:
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.
Grazie