Lille billedet galleri med sti fra access

For "stor" opgave at lave for point, men selve opgaven er relativ simpel...

1. Du skal bruge et billed komponent. Jeg selv bruger for det meste ASP Image der kan findes i en demo udgave på www.serverobjects.com

2. Du skal også bruge et upload komponent, der kan uploade dine billeder til din server. Til dette anbefaler jeg Persits Upload - www.persits.com... Hvis du har en server/webhotel der har dette, er du allerede et godt stykke... Det gør de fleste bedre webhoteller...

3. Nu skal du bruge et script, der kan upload billedet med persits, og behandle det med ASPImage, dvs, skallere det og gemme det igen... Der findes garranteret en masse scripts derude, du kan hente og tilpasse til dit eget formål... Start på www.asp.dk, www.activedeveloper.dk eller www.hotscripts.com...

Du kan også bare selv gå igang, på persits.com og serverobjects.com er der funktions referencer til de respektive komponenter... held og lykke :)

jeg har en server med billedet componenter og upload.
Jeg syntes alle de færdige gallerier har alle mulige funktioner som jeg ikke skal bruge til noget.

Så må du pille det fra du ikke skal bruge :) At lave et helt script for dig, er for tidskrævende til at jeg vil gøre det for point - beklager - Kan kun guide dig i den rigtige retning :)

okay det er jo også til at forstå.

Så kan du måske hjælpe mig med nogle med at finde ud af hvordan jeg laver den funktion der skal gøre billedet lille, for der står jeg af.

Upload og hente skulle jeg nok finde ud af.

men lige den funktion der gør det lille/stort er et problem.

Du skal bruge en funktion der hedder ReSizer - Led efter den på serverobjects.com, eller google ;)

nu er det ikke min server så der er ikke mulighed for at installer ting på server. Der er aspSmartUpload og det er det, derfor er jeg nød til at kunne kører det uden component

Kan du hurtig se hvad der er gået galt i denne kode?

<%
OpenDatabase

myid = Request("tempKey")
If (myid = "" Or Not IsNumeric(myid)) Then
id = 0
End If
strSQL = "Select * From keywords Where kw_ID = "&Request.Querystring("id")&""
Set rs = Conn.Execute(strSQL)

if rs.EOF then

  ' her skriver du det...
  response.write "Der er ikke nogen beskrivelse for denne vare."

  else
 
  Response.Write "<strong><h3>" & rs ("kw_word") & "</h3></strong><br>"
  Response.Write "<strong>Type:</strong>&nbsp;<br><br>" & rs ("kw_type") & "<br><br>"
  Response.Write "<strong>Beskrivelse:</strong>&nbsp;<br><br>" & rs ("kw_beskrivelse") & "<br><br>"
  Response.Write "<strong>Smag:</strong>&nbsp;<br><br>" & rs ("kw_smag") & "<br><br>"
  Response.Write "<strong>Anvendelse:</strong>&nbsp;<br><br>" & rs ("kw_anvendelse") & "<br><br>"   
    end if
 
 
%><%
strSQL = "Select * From keywords Where kw_ID = "&Request.Querystring("id")&""
Set rs = Conn.Execute(strSQL)

If (Not RS.BOF) And (Not RS.EOF) Then
  RS.MoveFirst
        While Not RS.EOF
           
                           
                    If Width >= 100 Then
                        FixWidth = 100
                    Else
                        FixWidth = Width
                    End if

                    Percent = (FixWidth/Width)
                    FixHeight = (Height*Percent)
%>
              <td width="20%"><img src="Upload/"<%Filsti%>" width="<%=FixWidth%>" height="<%=FixHeight%>" border="0" hegiht="20" /></a></td>
              <td width="60%">...</td>
              <td width="20%" align="center" valign="center">&nbsp;</td>
       
     
<%
        RS.MoveNext
  Wend
    Else
        Response.Write "Beklager - der blev ikke fundet nogle ferieboliger i dette amt. <br />"
    End If

CloseDatabase

%>

jeg får denne fejl:

Microsoft VBScript runtime error '800a0006'

Overflow

/beskriv.asp, line 51

som er

Percent = (FixWidth/Width)

jeg vil ikke give dig 150 point for dette svar. Men nogle skal du da have.