programmare in asp

M

melo53

Nuovo Utente
25 Ott 2012
1
0
0
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">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</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%>
&nbsp;
<%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 %>
&nbsp;
<%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%>
&nbsp;
<%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%>
&nbsp;
<%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%>
&nbsp;
<%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%>
&nbsp;
<%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%>
&nbsp;
<%else%>
<%if GetField(mimmagine)<>"" then %>
<%=mimmagine%>
&nbsp;
<%mimmagine = replace(mimmagine,"\","/")%>
<%mimmagine = "/mdb-db-immagini/"+mimmagine%>
[/B]
&nbsp;
<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%>
&nbsp;
<%else%>
<%=ID_Rec%>
<%end if%>
</font>


</td>
</tr>

</table>
</center>

&nbsp;
</body>

---------------------------
 
Devi accedere o registrarti per poter rispondere.
Discussioni simili
Autore Titolo Forum Risposte Data
E continuare a programmare in ASP? Discussioni Varie 4
L programmare senza saper programmare Sviluppo app per Android 7
ken_korn Come vi esercitate a programmare? Programmazione 0
tecniconapoletano [PHP] Open Source o programmare da zero PHP 3
S Programmare iOS Sviluppo app per iOS 0
webmachine Come programmare l'invio di una mail in PHP? PHP 1
JohnnyIbiza021a Programmare area personale per singolo utente PHP 12
filippino Imparare a programmare da zero Programmazione 2
voldemort Per programmare Android bisogna conoscere Java? Sviluppo app per Android 1
M Programmare in php su android Smartphone e tablet 2
R [PAGATO] Cerco programmatore php, java, in grado di programmare dal principio. NO CMS Offerte e Richieste di Lavoro e/o Collaborazione 1
alessandro1997 Perché programmare a oggetti PHP 22
novello88 Iniziare a programmare per Android Sviluppo app per Android 0
A programmare crontab DA uno script php PHP 1
Z Programmare CONTABILITA' PHP 1
N Iniziare a programmare Programmazione 4
LaKanka Meglio programmare artigianalmente o con CRM? PHP 6
B Programmare per Iphone e Mac OsX Programmazione 1
H Quale S.O. migliore per programmare in php ? PHP 0
B Programmare per apple Programmazione 1
O Programmare in C Altri Annunci 0
I asp | includere un file, indirizzo depositato in un db Classic ASP 0
Paolo69 Risolto reCAPTCHA v2 per ASP Classic ASP 0
P lanciare script asp (o php) da jquery Javascript 1
L Modifica file upload in ASP Classic ASP 2
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 14
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2

Discussioni simili

Alto Basso