Salve,
sto cercando di riempire automaticamente un database mssql da uno access ma non mi funziona (non ri riempe il database):
La pagina iniziale del broswer sara: "http://......./conversione2.asp?id=0"
<%
id=request.QueryString("id")
conto=0
Do Until conto=50
conto=1+conto
id=id+1
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/articolimobile.mdb")
sSql3="SELECT * FROM articolo WHERE id="&id&""
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open sSql3, conn3, 3, 3
If rs3.EOF=FALSE Then
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "Driver={SQL Server};Server=62.149.153.15;Database=MSSql34652;U id=MSSqlxxxxx;Pwd=xxxxxx;"
Set Rs2=server.CreateObject("ADODB.Recordset")
Rs2.Open "articolo",Conn2,3,3
Rs2.AddNew
Rs2("id") = Rs3("id")
Rs2("titolo") = Rs3("titolo")
Rs2("testo") = Rs3("testo")
Rs2("nota1") = Rs3("nota1")
Rs2("data") = Rs3("data")
Rs2("ora") = Rs3("ora")
Rs2("nota2") = Rs3("nota2")
Rs2("genere1") = Rs3("genere1")
Rs2("genere2") = Rs3("genere2")
Rs2("immagine1") = Rs3("immagine1")
Rs2("immagine2") = Rs3("immagine2")
Rs2("immagine3") = Rs3("immagine3")
Rs2("immagine4") = Rs3("immagine4")
Rs2("immagine5") = Rs3("immagine5")
Rs2("autore") = Rs3("autore")
Rs2("email") = Rs3("email")
Rs2.update
Rs2.Close
Conn2.Close
Set Rs2 = Nothing
Set Conn2=Nothing
end if
Loop
rs3.Close
Set rs3 = Nothing
conn3.Close
Set conn3 = Nothing
%>
<META HTTP-EQUIV="REFRESH" CONTENT="5; URL=conversione2.asp?id=<%=id%>">
Dove sbaglio?
Ciao e grazie in anticipo!

Rispondi quotando
