Ciao a tutti qualcuno mi sa dire perchè lanciando questa pagina mi viene creato due volte lo stesso documento nel db?
<%
Response.Expires = -1500
'response.buffer = True
nome_doc = request("nome_doc") & ".csv"
strnome=replace(nome_doc,"'","+")
strnome=replace(strnome," ","-")
'scrivo il link del file gg_mm_aaaa_ora_min_nomecli
strlink = day(date) & "_" & month(date) & "_" & year(date) & "_" & Hour(Time()) & "_" & Minute(Time() ) & "_" & strnome
'trovo id massimo
set rsmax=OBJdbConnection.Execute("SELECT count(*) as numrec, MAX(id_doc) as maxim FROM Documenti_prof")
if rsmax("numrec") = 0 then
id_doc=1
else
id_doc=clng(rsmax("maxim"))+1
end if
rsmax.close
'inserisco i dati del documento
sqlIns = "insert into Documenti_prof values (" & id_doc & ",'" & replace(nome_doc,"'",chr(14)) & "','" & month(date) & "/" & day(date) & "/" & year(date) & "','" & time() & "','" & strlink & "')"
OBJdbConnection.Execute(sqlIns)
'creo il file relativo
Dim OggFile, origine, OggTextStream
origine=Server.MapPath("temp\" & strlink)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (origine)
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
' scrivo intestazione
strsAlltringa = "Nome studio;periti associati;Qualifica anpaird;"
strsAlltringa =strsAlltringa & "Specializzazioni;user;Indirizzo sede centrale;"
strsAlltringa =strsAlltringa & "Indirizzo sede operativa;telefono sede centrale;skype;"
strsAlltringa =strsAlltringa & "email;fax;cell;note;"
strsAlltringa =strsAlltringa & "sito web;telefono sede operativa;email sede operativa;"
strsAlltringa =strsAlltringa & "fax sede operativa;Corsi di specializzazione Cineas;titolo_studio;perito"
OggTextStream.WriteLine strsAlltringa
sqlAll = "select * from utenti where id_cat<> 'AM' order by Denominazione"
set rsAll=OBJdbConnection.Execute(sqlAll)
' scrivi tutti i dati dei professionisti
while not rsAll.eof
'cerco il comune relativo alla sede centrale
strIndirizzoCentr=""
strIndirizzoOper =""
if rsAll("nazione") = 0 then
'se la nazione è italiana
sqlsede = "select comuni.Descr_Comune,province.sigla " &_
" from comuni,province" &_
" where province.ID_Provincia=comuni.ID_Provincia" &_
" and province.ID_Provincia=" & rsAll("provincia") &_
" and comuni.ID_Comune=" & rsAll("comune")
set rssede=OBJdbConnection.Execute(sqlsede)
if not rssede.eof then
strIndirizzoCentr = rsAll("Indirizzo") & " " & rsAll("cap") & "-" & rssede("Descr_Comune") & "(" & rssede("Sigla") &") Italia"
end if
rssede.close
elseif isnumeric(rsAll("nazione")) then
'se la nazione è estera
sqlNAz = "select * from nazioni where id=" & rsAll("nazione")
response.write sqlNAz
set rsNaz=OBJdbConnection.Execute(sqlNAz)
if not rsNaz.eof then
strNAzione = rsNaz("nazione")
end if
rsNaz.close
strIndirizzoCentr = rsAll("Indirizzo") & " " & rsAll("cap") & "-" & rsAll("comune") & "(" & rsAll("provincia") &") " & strNAzione
end if
'cerco il comune relativo alla sede operativa
if rsAll("nazione_s_oper") = 0 then
'se la nazione è italiana
sqlsede = "select comuni.Descr_Comune,province.sigla " &_
" from comuni,province" &_
" where province.ID_Provincia=comuni.ID_Provincia" &_
" and province.ID_Provincia=" & rsAll("provincia_s_oper") &_
" and comuni.ID_Comune=" & rsAll("comune_s_oper")
set rssede=OBJdbConnection.Execute(sqlsede)
if not rssede.eof then
strIndirizzoOper = rsAll("Indirzzo_s_oper") & " " & rsAll("cap_s_oper") & "-" & rssede("Descr_Comune") & "(" & rssede("Sigla") &") Italia"
end if
rssede.close
elseif isnumeric(rsAll("nazione_s_oper")) then
'se la nazione è estera
sqlNAz = "select * from nazioni where id=" & rsAll("nazione_s_oper")
set rsNaz=OBJdbConnection.Execute(sqlNAz)
if not rsNaz.eof then
strNAzione = rsNaz("nazione")
end if
rsNaz.close
strIndirizzoOper = rsAll("Indirzzo_s_oper") & " " & rsAll("cap_s_oper") & "-" & rsAll("comune_s_oper") & "(" & rsAll("provincia_s_oper") &") " & strNAzione
end if
strsAlltringa = rsAll("Denominazione") & ";" & rsAll("Nome_periti") & ";" & rsAll("id_cat")& ";"
strsAlltringa =strsAlltringa & rsAll("tip_danni")& ";" & rsAll("userID")& ";" & strIndirizzoCentr & ";"
strsAlltringa =strsAlltringa & strIndirizzoOper & ";" & rsAll("telefono") & ";" & rsAll("tel_skype") & ";"
strsAlltringa =strsAlltringa & rsAll("Email") & ";" & rsAll("fax") & ";" & rsAll("cell") & ";" & rsAll("note") & ";"
strsAlltringa =strsAlltringa & rsAll("sito_web") & ";" & rsAll("telefono_s_oper") & ";" & rsAll("email_s_oper") & ";"
strsAlltringa =strsAlltringa & rsAll("fax_s_oper") & ";" & rsAll("corsi_cineas") & ";" & rsAll("titolo_studio") & ";" & rsAll("perito")
OggTextStream.WriteLine strsAlltringa
rsAll.movenext
wend
rsAll.close
OggTextStream.close
response.redirect "visualizza_doc.asp?inser=ok&xx=" & request("xx")
%>
Rispondi quotando