upload di Baol controllo campi

**dodi** · 15-06-2008, 14:39

Come posso inserire un controllo campi nell'Upload di Baol, per evitare duplicati sui campi nome_utente e email?.
Premetto che faccio l'upload sia con immagine che senza.

**Roby_72** · 15-06-2008, 14:53

Spiegati meglio...
Ad ogni modo dvi controllare le variabili e verificare cosa contengono.

Roby

**dodi** · 15-06-2008, 16:00

'questo è il codice: in pratica mi rimanda sempre alla pagina di controllo del nick, anche se si tratta di un nuovo utente ed in effetti non esiste nel database.
' dove sbaglio?

<%
Dim percorso
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/public/"
.Load

if .form("nick")="" then
response.redirect "controllo.asp?Id=2"
end if

if .form("pwd")="" then
response.redirect "controllo.asp?Id=3"
end if
if .form("email")="" then
response.redirect "controllo.asp?Id=4"
end if

if .form("sesso")="" then
response.redirect "controllo.asp?Id=5"
end if

if .form("giorno")="" then
response.redirect "controllo.asp?Id=6"
end if
if .form("mese")="" then
response.redirect "controllo.asp?Id=7"
end if

if .form("anno")="" then
response.redirect "controllo.asp?Id=8"
end if
if .form("eta")="" then
response.redirect "controllo.asp?Id=9"
end if
if .form("citta")="" then
response.redirect "controllo.asp?Id=10"
end if
if .form("cerco")="" then
response.redirect "controllo.asp?Id=11"
end if

if .form("foto")="" then
response.redirect "controllo.asp?Id=12"
end if

if .form("termini")="" then
response.redirect "controllo.asp?Id=13"
end if
if .form("privacy")="" then
response.redirect "controllo.asp?Id=14"
end if
%>

<%
dim nick
dim pwd
dim email
dim sesso
dim giorno
dim mese
dim anno
dim eta
dim data_iscriz
dim DataUltimoAccesso
dim OraUltimoAccesso
dim citta
dim cerco
dim foto
dim termini
dim privacy
dim form
dim attivo
dim codec

nick=.form("nick")
pwd=.form("pwd")
email=.form("email")
sesso=.form("sesso")
giorno=.form("giorno")
mese=.form("mese")
anno=.form("anno")
eta=.form("eta")
data_iscriz=.form("data_iscriz")
DataUltimoAccesso=.form("DataUltimoAccesso")
OraUltimoAccesso=.form("OraUltimoAccesso")
citta=.form("citta")
cerco=.form("cerco")
foto=.form("foto")
termini=.form("termini")
privacy=.form("privacy")
attivo=.form("attivo")
codec=.form("codec")

%>
<%
dim intTest
intTest="0"
%>

<%

.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/archivio_guardachice.mdb"),"SELECT * FROM registrazione_utenti WHERE nick = '" & nick & "' And email = '" & email & "'"

.MoveFirst
.Database.Open()

if oUpload.eof=True then

%>

<%
response.Write "La registrazione è stata completata
file<u>"& .GetFileName &"</u> salvato

nella Tua casella di posta troverai il link di collegamento all'area personalizzata"

'Inserimento dei valori con immagine

.Database.Fields("nick") = .Form("nick")
.Database.Fields("pwd") = .Form("pwd")
.Database.Fields("email") = .Form("email")
.Database.Fields("sesso") = .Form("sesso")
.Database.Fields("giorno") = .Form("giorno")
.Database.Fields("mese") = .Form("mese")
.Database.Fields("anno") = .Form("anno")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("citta") = .Form("citta")
.Database.Fields("cerca") = .Form("cerco")
.Database.Fields("data_iscriz") = .Form("data_iscriz")
.Database.Fields("DataUltimoAccesso") = .form("DataUltimoAccesso")
.Database.Fields("OraUltimoAccesso") = .form("OraUltimoAccesso")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("termini") = .Form("termini")
.Database.Fields("privacy") = .Form("privacy")
.Database.Fields("form") = .Form("form")
.Database.Fields("attivo") = .Form("attiva")
.Database.Fields("codec") = .Form("codec")
.Database.Fields("percorso") = .GetHTTPPathFile()

'Inserimento

.Database.AddNew()

.MoveNext
.SaveAll ()

do while not oUpload.eof
Loop

else
intTest="1"
end if

End With
Set oUpload = Nothing

if intTest="1" then
response.redirect "controllo.asp?Id=1"
end if

%>

<%

mittente = "info@miamail.it"

testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.miosito.it/public/gestion...ail.asp?codec=" & codec &"&email=" & email &" "

emaila = email
Set Config = Server.CreateObject("CDO.Configuration")
Set email = Server.CreateObject("CDO.Message")

email.From = mittente
email.To = emaila
email.Subject = "[miosito] ATTIVA LA REGISTRAZIONE!"
email.textBody = testo
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.miosito.it"
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
email.Send()

Set email = nothing
Set Fields = Nothing

%>

**Santino83_02** · 15-06-2008, 17:34

il codice del form?

**dodi** · 15-06-2008, 18:48

Ecco il codice del form:

<div align="center">
<table width="420" border="0" cellspacing="10">
<tr>
<FORM METHOD="Post" name="form1" enctype="multipart/form-data" action="registrami.asp">

<td width="26%">

Nickname*</p></td>
<td width="74%"><input name="nick" type="text" id="nick" value=""></td>
</tr>
<tr>
<td>

Password*</p></td>
<td><input name="pwd" type="password" id="pwd"></td>
</tr>
<tr>
<td>

Email*</p></td>
<td><input name="email" type="text" id="email" value="">
</tr>
</table>

<table width="420" border="0" cellspacing="10" class="box_registrazione" style="margin-top:1px;">
<tr>
<td width="25%">

Sesso*</p>

</td>
<td width="71%">

Maschio
<input name="sesso" type="radio" value="m" checked >

Femmina
<input name="sesso" type="radio" value="f" >

</p></td>
</tr>
<tr>
<td>

Data di nascita*</p></td>
<td><select name="giorno" id="giorno" >
<option value=""></option>
<option value="01" >01</option>
<option value="02" >02</option>
<option value="03" >03</option>
<option value="04" >04</option>
<option value="05" >05</option>
<option value="06" >06</option>
<option value="07" >07</option>
<option value="08" >08</option>
<option value="09" >09</option>
<option value="10" >10</option>
<option value="11" >11</option>
<option value="12" >12</option>
<option value="13" >13</option>
<option value="14" >14</option>
<option value="15" >15</option>
<option value="16" >16</option>
<option value="17" >17</option>
<option value="18" >18</option>
<option value="19" >19</option>
<option value="20" >20</option>
<option value="21" >21</option>
<option value="22" >22</option>
<option value="23" >23</option>
<option value="24" >24</option>
<option value="25" >25</option>
<option value="26" >26</option>
<option value="27" >27</option>
<option value="28" >28</option>
<option value="29" >29</option>
<option value="30" >30</option>
<option value="31" >31</option>
</select>
<select name="mese" id="mese">
<option value=""></option>
<option value="01" >Gennaio</option>
<option value="02" >Febbraio</option>
<option value="03" >Marzo</option>
<option value="04" >Aprile</option>
<option value="05" >Maggio</option>
<option value="06" >Giugno</option>
<option value="07" >Luglio</option>
<option value="08" >Agusto</option>
<option value="09" >Settembre</option>
<option value="10" >Ottobre</option>
<option value="11" >Novembre</option>
<option value="12" >Dicembre</option>
</select>
<select name="anno" id="anno">
<option value=""></option>
<option value="1993" >1993</option>
<option value="1992" >1992</option>
<option value="1991" >1991</option>
<option value="1990" >1990</option>
<option value="1989" >1989</option>
<option value="1988" >1988</option>
<option value="1987" >1987</option>
<option value="1986" >1986</option>
<option value="1985" >1985</option>
<option value="1984" >1984</option>
<option value="1983" >1983</option>
<option value="1982" >1982</option>
<option value="1981" >1981</option>
<option value="1980" >1980</option>
<option value="1979" >1979</option>
<option value="1978" >1978</option>
<option value="1977" >1977</option>
<option value="1976" >1976</option>
<option value="1975" >1975</option>
<option value="1974" >1974</option>
<option value="1973" >1973</option>
<option value="1972" >1972</option>
<option value="1971" >1971</option>
<option value="1970" >1970</option>
<option value="1969" >1969</option>
<option value="1968" >1968</option>
<option value="1967" >1967</option>
<option value="1966" >1966</option>
<option value="1965" >1965</option>
<option value="1964" >1964</option>
<option value="1963" >1963</option>
<option value="1962" >1962</option>
<option value="1961" >1961</option>
<option value="1960" >1960</option>
<option value="1959" >1959</option>
<option value="1958" >1958</option>
<option value="1957" >1957</option>
<option value="1956" >1956</option>
<option value="1955" >1955</option>
<option value="1954" >1954</option>
<option value="1953" >1953</option>
<option value="1952" >1952</option>
<option value="1951" >1951</option>
<option value="1950" >1950</option>
<option value="1949" >1949</option>
<option value="1948" >1948</option>
<option value="1947" >1947</option>
<option value="1946" >1946</option>
<option value="1945" >1945</option>
<option value="1944" >1944</option>
<option value="1943" >1943</option>
<option value="1942" >1942</option>
</select></td>
</tr>
<tr>
<td>

Età *</p></td>
<td><select name="eta">
<option value="00"></option>
<option>18</option>
<option>19</option>
<option>20</option>
<option>21</option>
<option>22</option>
<option>23</option>
<option>24</option>
<option>25</option>
<option>26</option>
<option>27</option>
<option>28</option>
<option>29</option>
<option>30</option>
<option>31</option>
<option>32</option>
<option>33</option>
<option>34</option>
<option>35</option>
<option>36</option>
<option>37</option>
<option>38</option>
<option>39</option>
<option>40</option>
<option>41</option>
<option>42</option>
<option>43</option>
<option>44</option>
<option>45</option>
<option>46</option>
<option>47</option>
<option>48</option>
<option>49</option>
<option>50</option>
<option>51</option>
<option>52</option>
<option>53</option>
<option>54</option>
<option>55</option>
<option>56</option>
<option>57</option>
<option>58</option>
<option>59</option>
<option>60</option>
<option>61</option>
<option>62</option>
<option>63</option>
<option>64</option>
<option>65</option>
<option>66</option>
<option>67</option>
<option>68</option>
<option>69</option>
<option>70</option>
</select></td>
</tr>
<tr>
<td>

Abito in provincia di:*</p> </td>
<td><select name="citta">
<option value="00"></option>
<option>Agrigento</option>
<option>Alessandria</option>
<option>Ancona</option>
<option>Andria</option>
<option>Aosta</option>
<option>Arezzo</option>
<option>Ascoli Piceno</option>
<option>Asti</option>
<option>Avellino</option>
<option>Bari</option>
<option>Barletta</option>
<option>Belluno</option>
<option>Benevento</option>
<option>Bergamo</option>
<option>Biella</option>
<option>Bologna</option>
<option>Bolzano</option>
<option>Brescia</option>
<option>Brindisi</option>
<option>Cagliari</option>
<option>Caltanissetta</option>
<option>Campobasso</option>
<option>Carbonia</option>
<option>Caserta</option>
<option>Catania</option>
<option>Catanzaro</option>
<option>Cesena</option>
<option>Chieti</option>
<option>Como</option>
<option>Cosenza</option>
<option>Cremona</option>
<option>Crotone</option>
<option>Cuneo</option>
<option>Enna</option>
<option>Fermo</option>
<option>Ferrara</option>
<option>Firenze</option>
<option>Foggia</option>
<option>Forli</option>
<option>Frosinone</option>
<option>Genova</option>
<option>Gorizia</option>
<option>Grosseto</option>
<option>Iglesias</option>
<option>Imperia</option>
<option>Isernia</option>
<option>La Spezia</option>
<option>L'aquila</option>
<option>Latina</option>
<option>Lecce</option>
<option>Lecco</option>
<option>Livorno</option>
<option>Lodi</option>
<option>Lucca</option>
<option>Macerata</option>
<option>Mantova</option>
<option>Massa Carrara</option>
<option>Matera</option>
<option>Messina</option>
<option>Milano</option>
<option>Monza</option>
<option>Modena</option>
<option>Napoli</option>
<option>Novara</option>
<option>Nuoro</option>
<option>Olbia</option>
<option>Oristano</option>
<option>Padova</option>
<option>Palermo</option>
<option>Parma</option>
<option>Pavia</option>
<option>Perugia</option>
<option>Pesaro</option>
<option>Pescara</option>
<option>Piacenza</option>
<option>Pisa</option>
<option>Pistoia</option>
<option>Pordenone</option>
<option>Potenza</option>
<option>Prato</option>
<option>Ragusa</option>
<option>Ravenna</option>
<option>Reggio Calabria</option>
<option>Reggio Emilia</option>
<option>Rieti</option>
<option>Rimini</option>
<option>Roma</option>
<option>Rovigo</option>
<option>Salerno</option>
<option>Sassari</option>
<option>Savona</option>
<option>Siena</option>
<option>Siracusa</option>
<option>Sondrio</option>
<option>Taranto</option>
<option>Teramo</option>
<option>Terni</option>
<option>Torino</option>
<option>Trani</option>
<option>Trapani</option>
<option>Trento</option>
<option>Treviso</option>
<option>Trieste</option>
<option>Udine</option>
<option>Urbino</option>
<option>Varese</option>
<option>Venezia</option>
<option>Verbania</option>
<option>Vercelli</option>
<option>Verona</option>
<option>Vibo Valentia</option>
<option>Vicenza</option>
<option>Viterbo</option>
</select></td>
</tr>
<tr>
<td>

Cerco:*</p></td>
<td>
<select name="cerco">
<option value=""></option>
<option value="01" >Amicizia</option>
<option value="02" >Amore</option>
<option value="03" >Sesso</option>
<option value="04" >Email</option>
<option value="05" >Scambio foto</option>
<option value="06" >Viaggiare</option>
<option value="07" >Uscire di sera</option>
<option value="08" >Altro...</option>

</select>

</td>
</tr>
<tr>
<td>

Foto*</p>
</td>
<td>
<input type="file" name="foto" size="19">

</td>
</tr>
<tr><td colspan="2">

Dimensioni max:100Kb.</p></td></tr>
</table>

</div>

</div>
<div align="center">

<table width="420" border="0" cellspacing="10">
<tr>
<td width="100%"><p class="testo7"><input name="termini" type="checkbox" id="termini" value="y" checked>
Accetto i termini e condizioni del servizio*</p></td>
</tr>
<tr>
<td><p class="testo7"><input name="privacy" type="checkbox" id="privacy" value="y" checked>
Ho preso atto dell'informativa sulla Privacy*</p></td>
</tr>
<tr>
<td> <p align="center">
<input name="form" type="hidden" id="form" value="y">
<input name="data_iscriz" type="hidden" value="<%=Date%>">
<input name="DataUltimoAccesso" type="hidden" value="<%=Date%>">
<input name="OraUltimoAccesso" type="hidden" value="<%=Time%>">
<input name="codec" type="hidden" value="154d43j65">
<input name="attivo" type="hidden" value="0">

<input type="submit" name="Submit" value="Invia">
</p>

* Campi obbligatori </p></div>
</form>
</td>
</tr>
</table>

</div>

**dodi** · 15-06-2008, 22:11

Santino83_02

mi hai chiesto il codice del form?

**dodi** · 16-06-2008, 10:46

Come posso fare una verifica sui campi del database per evitare duplicazioni dei record nell'upload di Baol?
con questo codice mi risponde sempre che il nominativo è presente nel database, anche se è un nuovo nominativo. Dov'è che sbaglio?
Premetto che senza le condizioni il codice funziona perfettamente, sia nell'inserimento del record che nell'invio del link alla casella di posta.
ecco il codice:

[CODE]

<%
Dim percorso
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/public/"
.Load

if .form("nick")="" then
response.redirect "controllo.asp?Id=2"
end if

if .form("pwd")="" then
response.redirect "controllo.asp?Id=3"
end if
if .form("email")="" then
response.redirect "controllo.asp?Id=4"
end if

if .form("sesso")="" then
response.redirect "controllo.asp?Id=5"
end if

if .form("giorno")="" then
response.redirect "controllo.asp?Id=6"
end if
if .form("mese")="" then
response.redirect "controllo.asp?Id=7"
end if

if .form("anno")="" then
response.redirect "controllo.asp?Id=8"
end if
if .form("eta")="" then
response.redirect "controllo.asp?Id=9"
end if
if .form("citta")="" then
response.redirect "controllo.asp?Id=10"
end if
if .form("cerco")="" then
response.redirect "controllo.asp?Id=11"
end if

if .form("foto")="" then
response.redirect "controllo.asp?Id=12"
end if

if .form("termini")="" then
response.redirect "controllo.asp?Id=13"
end if
if .form("privacy")="" then
response.redirect "controllo.asp?Id=14"
end if
%>

<%
dim nick
dim pwd
dim email
dim sesso
dim giorno
dim mese
dim anno
dim eta
dim data_iscriz
dim DataUltimoAccesso
dim OraUltimoAccesso
dim citta
dim cerco
dim foto
dim termini
dim privacy
dim form
dim attivo
dim codec

dim verifica
verifica="0"

nick=.form("nick")
pwd=.form("pwd")
email=.form("email")
sesso=.form("sesso")
giorno=.form("giorno")
mese=.form("mese")
anno=.form("anno")
eta=.form("eta")
data_iscriz=.form("data_iscriz")
DataUltimoAccesso=.form("DataUltimoAccesso")
OraUltimoAccesso=.form("OraUltimoAccesso")
citta=.form("citta")
cerco=.form("cerco")
foto=.form("foto")
termini=.form("termini")
privacy=.form("privacy")
attivo=.form("attivo")
codec=.form("codec")

%>

<%

.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/miodatabase.mdb"),"SELECT * FROM registrazione_utenti WHERE nick = '" & nick & "' And email = '" & email & "'"

.MoveFirst
.Database.Open()

if oUpload.eof then 'inserisco nuovo
%>

<%

'Inserimento dei valori con allegato

.Database.Fields("nick") = .Form("nick")
.Database.Fields("pwd") = .Form("pwd")
.Database.Fields("email") = .Form("email")
.Database.Fields("sesso") = .Form("sesso")
.Database.Fields("giorno") = .Form("giorno")
.Database.Fields("mese") = .Form("mese")
.Database.Fields("anno") = .Form("anno")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("citta") = .Form("citta")
.Database.Fields("cerca") = .Form("cerco")
.Database.Fields("data_iscriz") = .Form("data_iscriz")
.Database.Fields("DataUltimoAccesso") = .form("DataUltimoAccesso")
.Database.Fields("OraUltimoAccesso") = .form("OraUltimoAccesso")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("eta") = .Form("eta")
.Database.Fields("termini") = .Form("termini")
.Database.Fields("privacy") = .Form("privacy")
.Database.Fields("form") = .Form("form")
.Database.Fields("attivo") = .Form("attiva")
.Database.Fields("codec") = .Form("codec")
.Database.Fields("percorso") = .GetHTTPPathFile()

'Inserimento

.Database.AddNew()

.MoveNext
.SaveAll ()
response.Write "La registrazione è stata completata
file<u>"& .GetFileName &"</u> salvato

nella Tua casella di posta troverai il link di collegamento all'area personalizzata"

else
intTest="1"
End If

If intTest="1" Then
Response.Write("Lo username " & nick & " , è già presente del database!")

End If
End With

Set oUpload = Nothing
%>

<%

mittente = "info@miamail.it"

testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.miosito.it/public/gestion...ail.asp?codec=" & codec &"&email=" & email &" "

emaila = email
Set Config = Server.CreateObject("CDO.Configuration")
Set email = Server.CreateObject("CDO.Message")

email.From = mittente
email.To = emaila
email.Subject = "[miosito] ATTIVA LA REGISTRAZIONE!"
email.textBody = testo
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.miosito.it"
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
email.Send()

Set email = nothing
Set Fields = Nothing

%>

[CODE]

**Roby_72** · 16-06-2008, 12:30

Non devi apire una nuova discussione, la ricongiungo con l'altra.

Roby

**dodi** · 16-06-2008, 13:27

Grazie Roby....... avevo fretta

Discussione: upload di Baol controllo campi

Strumenti discussione

Ricerca discussione

Visualizza

upload di Baol controllo campi

Il codice del form

Controllo campi duplicati upload Baol

Permessi di invio