programmare in asp

lukeonweb · 23 Set 2003

Re: Re: Posso?

Originally posted by grottafelix
S P A M M S P A M

NON VISITATE PER NESSUN MOTIVO AL MONDO IL LINK CHE VI HO SEGNALATO! RISCHIATE DI IMPARARE L'ASP!

grottafelix · 23 Set 2003

Re: Re: Re: Posso?

Originally posted by lukeonweb
NON VISITATE PER NESSUN MOTIVO AL MONDO IL LINK CHE VI HO SEGNALATO! RISCHIATE DI IMPARARE L'ASP!

Grande Padre Luke :fonzie:

lukeonweb · 23 Set 2003

melo53 · 25 Ott 2012

help!!!

ho ereditato la gestione di un sito per la gestione di immagini e conosco il linguaggio ASP solo dopo aver modificato alcuni programmi precedentemente
scritti da un conoscente che per suoi motivi suoi se ne è andato.
ora la questione è questa, con il codice sottoelencato non riesco a visualizzare l'immagine ridimensionata come vorrei io (x, y fissi).
ho cercato su alcuni siti ma non ho trovato nulla, e quello che mi avevano suggerito non funziona.
premetto che il sito è su server Aruba e non mi risulta essere possibile installare e registrare DLL.
qualcuno mi può aiutare?????
grazie in anticipo
---------------------------
ecco il codice
---------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Club Alpino Italiano - Sezione di Ferrara </title>
<script language="JavaScript">

</script>

</head>

<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgcolor="#ffffff">
<div id="container">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="540">
<tr>
<td width="538">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="left" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<b><font face="Arial" size="4"><div align="center">Informazioni dettagliate sulla foto richiesta</div></font></b>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
</table>
</td>
</table>
</td>
</table>
</td>
</tr>
</table>
</div>
</center>

<%
id2=request.querystring("id")

sql="select * from totale where id="&id2

Set OBJdbConnection= Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-db-immagini/cai_foto.mdb")

Set RS=OBJdbConnection.Execute(sql)

mtitolo=rs("titolo")
mautore=rs("autore")
msogg=rs("soggetto")
mdata=rs("data_inizio")
mdata1=rs("data_fine")
mspace=(" - ")
mlink=rs("link")
mclassifica=rs("classifica")
mzona=rs("zona")
mimmagine=RS("immagine")
id_rec=rs("id")

%>

<%
function GetField(sStringa)
if isnull(sStringa) then
sStringa=""
end if
GetField=sStringa
end function
%>
<center>
<table cellpadding="10" border="1" width="567" height="109">
<tr>
<td width="272" height="19"><b><font face="Verdana" size="2">Titolo</font></b></td>
<td width="243" height="19">
<font face="Verdana" size="2">
<%if (GetField(mtitolo)="") then%>
 
<%else%>
<%if GetField(mtitolo)<>"" then%>
<%=mtitolo%>
<%end if%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">Autore</font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if (GetField(mAutore)="" ) then %>
 
<%else%>
<%if GetField(mAutore)<>"" then%>
<%=mAutore%>
<%end if%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">Soggetto</font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if (GetField(msogg)="") then%>
 
<%else%>
<%if GetField(msogg)<>"" then%>
<%=msogg%>
<% end if %>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">Zona </font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if (GetField(mzona)="") then%>
 
<%else%>
<%if GetField(mzona)<>"" then%>
<%=mzona%>
<%end if%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">data (inizio - fine)</font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if (GetField(mdata)="") then%>
 
<%else%>
<%if GetField(mdata)<>"" then%>
<%=mdata%>
<%=mspace%>
<%=mdata1%>
<%end if%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">Classifica</font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if GetField(mclassifica)="" then%>
 
<%else%>
<%=mclassifica%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">link</font></b></td>
<td width="243">
<font face="Verdana" size="2">

<%if (GetField(mimmagine)="") then%>
 
<%else%>
<%if GetField(mimmagine)<>"" then %>
<%=mimmagine%>
 
<%mimmagine = replace(mimmagine,"\","/")%>
<%mimmagine = "/mdb-db-immagini/"+mimmagine%>
[/B]
 
<div align="center"><img src="<%=mimmagine%>"></div>

<%end if%>
<%end if%>
</font>
</td>
</tr>
<tr>
<td width="272"><b><font face="Verdana" size="2">N° record</font></b></td>
<td width="243">
<font face="Verdana" size="2">
<%if GetField(ID_Rec)="" then%>
 
<%else%>
<%=ID_Rec%>
<%end if%>
</font>

</td>
</tr>

</table>
</center>

 
</body>

---------------------------

borgo italia · 25 Ott 2012

ciao
una domanda da gnurant: ma avevo sentito che asp è stato abbandonato e non più aggiornato, o sbaglio

maxbossi · 25 Ott 2012

borgo italia ha scritto:
ciao
una domanda da gnurant: ma avevo sentito che asp è stato abbandonato e non più aggiornato, o sbaglio

Hai ragione... il "classic ASP" è un linguaggio ormai obsoleto... ma ancora molto utilizzato!

programmare in asp

lukeonweb

Utente Attivo

grottafelix

Utente Attivo

lukeonweb

Utente Attivo

melo53

Nuovo Utente

borgo italia

Super Moderatore

maxbossi

Amministratore

Discussioni simili

programmare in asp

lukeonweb

Utente Attivo

grottafelix

Utente Attivo

lukeonweb

Utente Attivo

melo53

Nuovo Utente

borgo italia

Super Moderatore

maxbossi

Amministratore

Discussioni simili

Privacy & Transparency

Privacy & Transparency