AnD01
29-09-2005, 13:39
2 <html>
3 <head>
4 <title>Documento senza titolo</title>
5 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6 </head>
7 <body>
8 <%
9 fileXLS = Server.MapPath("comuni.XLS")
10 Response.Write "Reading file: " & fileXLS & "<br>"
11
12 Set Conn = Server.CreateObject("ADODB.Connection")
13 str = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & fileXLS & "; 14 DriverID=790"
15 Conn.Open str
16
17 Set conn1 = Server.CreateObject ("ADODB.Connection")
18 strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost;Database=comuni; UID=root; PWD=andrea;"
19 conn1.open(strConn)
20
21 Set rs = Server.CreateObject("ADODB.Recordset")
22 strSQL = "SELECT * FROM Results"
23 rs.Open strSQL, Conn
24
25 function fApici(stringa)
26 fApici= replace(stringa, "'", "''")
27 end function
28
29 rs.movefirst
30 Do While Not rs.EOF
31
32 id = rs("id")
33 cod = rs("codice")
34 nome = rs("nome")
35 regione = rs("regione")
36 provincia = rs("provinciaSigla")
37 prefisso = rs("prefisso")
38 istat = rs("istat")
39
40 strSQL1 = "INSERT INTO infocomuni (id, cod, nome, cap, regione, provincia, prefisso, istat) "
41 strSQL1 = strSQL1 & " VALUES ('" & fApici(id) & "',"
42 strSQL1 = strSQL1 & "'" & fApici(cod) &"',"
43 strSQL1 = strSQL1 & "'" & fApici(nome) &"',"
44 strSQL1 = strSQL1 & "'" & fApici(cap) &"',"
45 strSQL1 = strSQL1 & "'" & fApici(regione) &"',"
46 strSQL1 = strSQL1 & "'" & fApici(provincia) &"',"
47 strSQL1 = strSQL1 & "'" & fApici(prefisso) &"',"
48 strSQL1 = strSQL1 & "'" & fApici(istat) &"')"
49 conn1.execute(strSQL1)
50 rs.movenext
51 Loop
52
53 rs.close
54 set rs = Nothing
55 conn.close
56 conn1.close
57 set conn = Nothing
58 %>
59 DATI INSERITI
60 </body>
61 </html>
ecco quà il mio codice ... mi dice (dopo un pò di caricamento):
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null: 'replace'
/exel.asp, line 26
3 <head>
4 <title>Documento senza titolo</title>
5 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6 </head>
7 <body>
8 <%
9 fileXLS = Server.MapPath("comuni.XLS")
10 Response.Write "Reading file: " & fileXLS & "<br>"
11
12 Set Conn = Server.CreateObject("ADODB.Connection")
13 str = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & fileXLS & "; 14 DriverID=790"
15 Conn.Open str
16
17 Set conn1 = Server.CreateObject ("ADODB.Connection")
18 strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost;Database=comuni; UID=root; PWD=andrea;"
19 conn1.open(strConn)
20
21 Set rs = Server.CreateObject("ADODB.Recordset")
22 strSQL = "SELECT * FROM Results"
23 rs.Open strSQL, Conn
24
25 function fApici(stringa)
26 fApici= replace(stringa, "'", "''")
27 end function
28
29 rs.movefirst
30 Do While Not rs.EOF
31
32 id = rs("id")
33 cod = rs("codice")
34 nome = rs("nome")
35 regione = rs("regione")
36 provincia = rs("provinciaSigla")
37 prefisso = rs("prefisso")
38 istat = rs("istat")
39
40 strSQL1 = "INSERT INTO infocomuni (id, cod, nome, cap, regione, provincia, prefisso, istat) "
41 strSQL1 = strSQL1 & " VALUES ('" & fApici(id) & "',"
42 strSQL1 = strSQL1 & "'" & fApici(cod) &"',"
43 strSQL1 = strSQL1 & "'" & fApici(nome) &"',"
44 strSQL1 = strSQL1 & "'" & fApici(cap) &"',"
45 strSQL1 = strSQL1 & "'" & fApici(regione) &"',"
46 strSQL1 = strSQL1 & "'" & fApici(provincia) &"',"
47 strSQL1 = strSQL1 & "'" & fApici(prefisso) &"',"
48 strSQL1 = strSQL1 & "'" & fApici(istat) &"')"
49 conn1.execute(strSQL1)
50 rs.movenext
51 Loop
52
53 rs.close
54 set rs = Nothing
55 conn.close
56 conn1.close
57 set conn = Nothing
58 %>
59 DATI INSERITI
60 </body>
61 </html>
ecco quà il mio codice ... mi dice (dopo un pò di caricamento):
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null: 'replace'
/exel.asp, line 26