Problema strano su un insert

[optime]

hai sottomano l'archivio? entraci con access, sicuro c'è qualche schifezza dentro

[Roby_72]

sicuro... :maLOL:

Roby

[diegoctn]

E' quello che pensavo anch'io. L'archivio è un enorme db (intersystem) da cui prendo i dati. Da notare se prendo questo caz.. di record e lo inserisco in una form e poi con invio vado alla pagina di insert non mi da nessun problema.

Se faccio tutto in una pagina, settando la variabile mi tronca l'insert.

[Roby_72]

Vediamola allora tutta questa pagina.

roby

[diegoctn]

Nella tabella (intersystem) nessun problema. con nessun'altro record mi da problemi, solo con questo.......

[diegoctn]

Look:

session("zzz")=Request.Form("numero")
numero=Request.Form("numero")


strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("ente.mdb")
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
'Sql="SELECT count(msp) as qqq from madre where msp='"&numero&"' group by msp;"
Sql="SELECT msp from madre where msp='"&numero&"';"
set rs=server.createobject("adodb.recordset") 
rs.open Sql,Conn

If Not rs.EOF then
'if not Isnull(a) then
Rs.Close
set Rs=Nothing
Conn.Close
set Conn=Nothing
response.redirect ("disch3.asp?ex="&numero&"")



else


'.....................apri livedata..................

Rs.Close
set Rs=Nothing
Conn.Close
set Conn=Nothing





strconn="DSN=livedata;" 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
Set Rs = Server.CreateObject("ADODB.Recordset")

Squer="SELECT  PAPMI_Name, PAPMI_No, PAPMI_Name2, CTCIT_Desc, PAPMI_ID, PROV_Desc, PAPMI_No, PAPMI_DOB FROM PA_PatMas, CT_Province, PA_PERSON, CT_City Where PA_PatMas.PAPMI_PAPER_DR = PA_Person.PAPER_RowId and CTCIT_Province_DR = CT_Province.PROV_RowId and PA_Person.PAPER_CityBirth_DR = CT_City.CTCIT_RowId and PAPMI_No=('"&numero&"')" 
set rs=server.createobject("adodb.recordset") 
rs.open Squer, Conn


c=rs("City Description")
d=rs("Description")


c = Replace(c,"'","''")
d = Replace(d,"'","''")



rs.close 
Set rs=Nothing 
conn.close
set Conn=Nothing


'................................apro access...............

Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("ente.mdb") 
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT * from madre")

Sql = "INSERT into madre (citt,prov)" 
sql= Sql & "VALUES('"& c &"','" & d & "')" 

response.write "
c..:" & c
response.write "
d..:" & d
response.write "
sql..:" & sql



response.end
OBJConn.Execute(SQL) 

objRs.Close 
Set objRs = Nothing 
objConn.Close 
Set objConn = Nothing 
response.redirect ("disch2.asp?ex="&numero&"")
end if

Va con tutti............