è vero scusatemi.

<%

dim strConn
strConn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath("/O:\VB6/SOCI 2005-2006.mdb")&"; Persist Security Info = False"

Set conn=Server.CreateObject("ADODB.Connection")
conn.Open strConn

set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM 'tabella' WHERE id > 5"

rs.open sql, conn, 1, 3

do while not rs.eof


response.write("INSERT INTO `[elenco soci]` VALUES(" & rs("id") & ", '" & rs("idrisorsa") & "','" & rs("ip") & "','" & Rs("data") & "');" & VbCrLF)
rs.movenext

loop

rs.close
set rs=Nothing


conn.Close
set conn=Nothing

%>