fausto77

fausto77

Ciao a tutti.

Ho un problema con la resize : dopo aver caricato una immagine vorrei ridimensionarla per non appensatire troppo la pagina.

Questo è il codice che ho usato :

<%
dim id, link
strID = trim(request.QueryString("ID"))
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath ("/Foto_Record/" & strID)
oUpload.Upload
oUpload.SaveAs "01.jpg"
set oupload = Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="">
Foto : <INPUT TYPE="file" NAME="Campo1"><BR>
<INPUT TYPE="submit" NAME="Enter">
</FORM>

Ho provato in tanti modi diversi ma non ho ottenuto nessun risultato, cè qualcuno che potrebbe darmi una mano ?

Grazie in anticipo.

Fausto.

fausto77

Ciao.

Grazie di avermi risposto, cmq ho risolto

Ho messo in pratica i suggerimenti di un ragazzo ed adesso funziona.

Grazie lo stesso.

Fausto.

fausto77

Ciao.

Grazie per aver risposto.

Allora il codice completo è il seguente :

dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"
dim nome, eta, stato, sesso, luogo, regione, link, foto, referente, scheda_foto, appello, adottato, urgenza

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/Maremmano.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM CANI WHERE SESSO='MASCHIO' and ADOTTATO=false"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
nome=rs("nome")
eta=rs("eta")
sesso=rs("sesso")
luogo=rs("luogo")
regione=rs("regione")
link=rs("link")
foto=rs("foto")
scheda_foto=rs("scheda_foto")
appello=rs("appello")

if intVolta="1" then
intVolta="0"
intTesto="#00FF99"
intSfondo="#FFFF00"
else
intVolta="1"
intTesto="#FFFF99"
intSfondo="#33CCFF"
end if
%>
<TR bgcolor="<%=intSfondo%>">

<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</TABLE>

</td>

</tr>
</tbody></table>
<p> </p>
</body></html>

Da quello che mi hanno detto tramite questa istruzione : <a href="scheda.asp?id=<%= rs("ID") %>&foto=si">Vedi i dettagli</a>
io posso passare 1 o + campi e tramite questa altra :
Dim id
id = Int(Request.QueryString("id"))
dovrei poter ricevere i valori passati, correggimi se sbaglio.

Però a questo punto mi chiedo : nella 1° pagina dove posiziono il comando href visto che il campo su cui si clicca viene preso da un database di access ?

fausto77

Ciao a tutti.

Ho un problema con ASP e spero che mi possiate aiutare.

Ho creato un sito che si appoggia ad un database di access, quando apro la pagina maschi.asp il programma mi estrae tutti i record che soddisfano una certa condizione, me li dispone all'interno di una tabella, a questo punto per ogni riga che mi appare io ho un campo link sul quale cliccando vengo mandato ad una altra pagina dove farò visualizzare i dettagli inerenti quel record.

Qui iniziano i problemi, io vorrei passare all'altra pagina due campi, però 1° nel momento in cui clicco sul link non riesco a fargli capire su quale record mi trovo e 2° non so come fare a dirgli che quando ho cliccato su quel campo deve aprire la pagina successiva.

Ecco il codice :

dim nome, eta, stato, sesso, luogo, regione, link, foto, referente, scheda_foto, appello, adottato, urgenza

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/Maremmano.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM CANI WHERE SESSO='MASCHIO' and ADOTTATO=false"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
nome=rs("nome")
eta=rs("eta")
sesso=rs("sesso")
luogo=rs("luogo")
regione=rs("regione")
link=rs("link")
foto=rs("foto")
scheda_foto=rs("scheda_foto")
appello=rs("appello")

if intVolta="1" then
intVolta="0"
intTesto="#00FF99"
intSfondo="#FFFF00"
else
intVolta="1"
intTesto="#FFFF99"
intSfondo="#33CCFF"
end if
%>
<TR bgcolor="<%=intSfondo%>">

<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</TABLE>

Spero di essermi spiegato e ringrazio in anticipo chiunque vorrà darmi una mano.

Fausto

fausto77

@fausto77

Post creati da fausto77