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