Søg
Avatar billede riishoj Nybegynder
19. juli 2002 - 16:16 Der er 82 kommentarer og
1 løsning

Hente billede fra database

I min bildatabase vil jeg gerne have lavet en mulighed for også at vise billeder. Jeg har en allerede en form/script, som indsætter data i db'en og jeg har også et script, som uploader filer til serveren og smider et link i db'en. Disse ting vil jeg gerne have kombineret, men det skal laves, så man efterfølgende kan uploade et billede af en bil, som allerede ligger i db'en. Desuden ved jeg heller ikke, hvordan jeg skal hente billederne i db'en, da stien i db'en som refererer til billederne på db'en er stien på serveren (hvis I forstår hvad jeg mener)
Her er de scripts som jeg bruger.

Script til at indsætte data i db'en

' SQL sætning opbygges
strSQL = "Insert into biler (Bilmaerke,Model,Aargang,Km,Pris,Forhandler, ForhandlerId) values('" & Request.Form("Bilmaerke") & "','" & Request.Form("Model") & "','" & Request.Form("Aargang") & "','" & Request.Form("Km") & "','" & Request.Form("Pris") & "','" & Request.Form("Forhandler") & "','" & Request.Form("ForhandlerId") & "')"
Conn.Execute(strSQL)

Script til at vise indhold af db'en

<%
' Henter værdien fra search.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))
strForhandler = Trim(Request.Form("Forhandler"))



' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler  FROM  biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"
strSQL = strSQL & " AND (Forhandler LIKE '%" & strForhandler & "%') ORDER BY Bilmaerke, Model"

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr><br>"
    Response.Write "<table border=0 cellpadding=3>"
   
    Response.Write "<tr bgcolor=#336699><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</th><th><font color=white face=verdana size=2>Km</th><th><font color=white face=verdana size=2>Pris</th><th><font color=white face=verdana size=2>Forhandler</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr bgcolor=#000066><td><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
      'Find link til forhandleren...
  strSQL = "SELECT link FROM for WHERE forhandlerId =" & rs("forhandlerId")
  set linkRs = Conn.execute(strSQL)
  if (linkRs.EOF) OR (Len("" & linkRs("link") & "") = 0) then
          Response.Write "<td align=left><font color=white face=verdana size=2>" & rs("Forhandler") & "</td></tr>"
  else
    Response.Write "<td align=left><font color=white face=verdana size=2><a href=""" & linkRs("link") & """>" & rs("Forhandler") & "</a></td></tr>"
  end if

       
       
       


        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=black  face=verdana size=3><b>Der er ikke fundet noget på denne søgning</b></p><br>"
End If

' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>

Script til at uploade billeder til serveren og link til db'en.

<%
Response.Expires = 0

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString



Set fbase = Server.CreateObject("Chili.Upload.1")
dim strSentence, arrWords, strOneWord, element
strSentence = fbase.SourceFileName
strSentence = Trim(strSentence)
arrWords = Split (strSentence, "\", -1, 1)
element = UBound(arrWords)
' Response.Write("Element = ")
' Response.Write(element)
Response.Write("<BR> Du har succesfuldt uploadet ")
Response.Write(arrWords(element))
Response.Write("<BR>")

fbase.SizeLimit = 100000
FILSTI = ("home/sites/site122/web/upload/filer/" & arrWords(element))
fbase.SaveToFile ("/home/sites/site122/web/upload/filer/" & arrWords(element))


strSQL ="INSERT INTO biler (Filstier) VALUES ('" & FILSTI & "')"
conn.execute(strSQL)
response.write strSQL

' Rydder op efter os
Conn.Close
Set Conn = Nothing

%>

Jeg håber, at nogen kan gennemskue hvad mit problem er.
Avatar billede eagleeye Praktikant
19. juli 2002 - 20:27 #1
Ligger filen i databasen eller linker der et link i databasen???

Hvis der ligger et link i databasen kan du vise billedet ved at skriver:
<img scr="<%=rs("filsti")%>">

Det vil være en god ide at gemme filstien så du gemmer fra roden af din web-server og ikke noget med ../..blabla/ i sti navnet da det bliver umuligt at udregne hvor billede filen befinder sig.
Avatar billede riishoj Nybegynder
19. juli 2002 - 21:25 #2
OK. Kan det lade sig gøre at indsætte et link til et billede til en allerede eksisterende post i db'en? Sådan som uploadfunktionen virker nu, så lægger den bare et link som den næste post i db'en.
Eks. Hvis jeg efterfølgende vil uploade et billede af bil nr. 7 i db'en, hvordan undgår jeg så, at linket ender som post nr. 11 i db'en? (altså hvis der i forvejen er 10 poster i db'en?
Avatar billede eagleeye Praktikant
19. juli 2002 - 21:49 #3
Jeg er ikke sikker jeg forstår det sidste rigtig. Men hvis du vil opdater en recordset med billede kan du lave en UPDATE isetedet for INSERT INTO...

Eks: "UPDATE tabel SET filsti = '" & nyt_billede & "' WHERE id = " & valgt_bil

Er det sådan noget du tænker på, det kræver man inden man gemmer så vælger hvilken bil et billede høre til.
Avatar billede riishoj Nybegynder
19. juli 2002 - 22:08 #4
Ja, det er det jeg mener. Det skal bare laves, så man indsætter billedet (linket) sammen med de andre de andre data på bilen i db'en, men hvis man i første omgang undlader at indsætte et billede, så skal man bagefter kunne indsætte et billede af en hvilken som helst bil i db'en!

Hvordan får jeg kombineret de de forskellige scripts, som indsætter data og billede (link) i db'en, altså

' SQL sætning opbygges
strSQL = "Insert into biler (Bilmaerke,Model,Aargang,Km,Pris,Forhandler, ForhandlerId) values('" & Request.Form("Bilmaerke") & "','" & Request.Form("Model") & "','" & Request.Form("Aargang") & "','" & Request.Form("Km") & "','" & Request.Form("Pris") & "','" & Request.Form("Forhandler") & "','" & Request.Form("ForhandlerId") & "')"
Conn.Execute(strSQL)

sammen med

<%
Response.Expires = 0

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString



Set fbase = Server.CreateObject("Chili.Upload.1")
dim strSentence, arrWords, strOneWord, element
strSentence = fbase.SourceFileName
strSentence = Trim(strSentence)
arrWords = Split (strSentence, "\", -1, 1)
element = UBound(arrWords)
' Response.Write("Element = ")
' Response.Write(element)
Response.Write("<BR> Du har succesfuldt uploadet ")
Response.Write(arrWords(element))
Response.Write("<BR>")

fbase.SizeLimit = 100000
FILSTI = ("home/sites/site122/web/upload/filer/" & arrWords(element))
fbase.SaveToFile ("/home/sites/site122/web/upload/filer/" & arrWords(element))


strSQL ="INSERT INTO biler (Filstier) VALUES ('" & FILSTI & "')"
conn.execute(strSQL)
response.write strSQL

' Rydder op efter os
Conn.Close
Set Conn = Nothing

%>
Avatar billede eagleeye Praktikant
19. juli 2002 - 22:21 #5
Nu kende jeg ikke lige Chili.Upload men typisk med andre upload kompunenter kan man lave en form som både indeholder billede filer og andre felter. Når man hendter de andre form elementer kan man ikke bruge Request.Form("felt") men man skal bruger navnet .Form på upload objectet, fbase.Form("felt")
Avatar billede riishoj Nybegynder
19. juli 2002 - 22:27 #6
Formen ser sådan ud

<FORM ACTION="fileupld.asp" METHOD="POST" ENCTYPE="multipart/form-data">

<INPUT TYPE="FILE" NAME="FILE">

<INPUT TYPE="SUBMIT" VALUE="Send">

</FORM>

Kan den kombineres med formen, som indsætter de andre data

<form action="kopi/indsaet.asp" method="post">
<p align="center"><br>
<font face="Verdana" size="2"><b>Indsæt bil i bildatabasen</b></font></p>
<p align="center"><font face="Verdana" size="2"><b>NB. Alle felter skal
udfyldes!</b></font></p>
<table border="0" cellpadding="3" cellspacing="3" width="100%">
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Bilmærke:&nbsp;</b></font></td>
    <td width="50%"> <input type="text" name="Bilmaerke">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>Model:&nbsp;&nbsp;</b></font></td>
    <td width="50%"> <input type="text" name="Model">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Årgang:&nbsp;</b></font></td>
    <td width="50%"><font face="Verdana" size="2"><input type="text" name="Aargang">
      </font></td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Km:</b></font></td>
    <td width="50%"> <input type="text" name="Km">
    </td>
  </tr>
  <tr>
    <td width="50%"><b><font face="Verdana" size="2">
Pris:</font>&nbsp;&nbsp;</b></td>
    <td width="50%"><input type="text" name="Pris">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Forhandler:&nbsp;&nbsp;</b></font></td>
    <td width="50%"><input type="text" name="Forhandler">

    </td>
  </tr>
  <tr>
    <td width="50%"><b><font face="Verdana" size="2">ForhandlerId:</font>&nbsp;&nbsp;</b></td>
    <td width="50%"><input type="text" name="ForhandlerId" size="20">

    </td>
  </tr>
  <tr>
    <td width="50%"></td>
    <td width="50%">
      <p align="center"><input type="submit" value="Indsæt">
      </p>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
</form>
Avatar billede riishoj Nybegynder
19. juli 2002 - 22:28 #7
Jeg er nødt til at bruge Chili.Upload, da det er den eneste komponent som tilbydes på min server!
Avatar billede eagleeye Praktikant
19. juli 2002 - 22:31 #8
Form tagen skal se sådan ud eller som det mindste havde ENCTYPE med:

<FORM ACTION="fileupld.asp" METHOD="POST" ENCTYPE="multipart/form-data">


Du kan så sætte hele den anden FORM ind uden form tagen og så sætte denne ind et sted i form:
<INPUT TYPE="FILE" NAME="FILE">

</form>
Avatar billede riishoj Nybegynder
19. juli 2002 - 22:53 #9
Jeg er med endnu. Prøver lige det du har foreslået.
Avatar billede riishoj Nybegynder
19. juli 2002 - 23:04 #10
Så kommer min form til at se sådan ud

<form action="indsaet.asp" method="post"
ACTION="upload.asp" METHOD="POST"
ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE">
<p align="center"><br>
<font face="Verdana" size="2"><b>Indsæt bil i bildatabasen</b></font></p>
<p align="center"><font face="Verdana" size="2"><b>NB. Alle felter skal
udfyldes!</b></font></p>
<table border="0" cellpadding="3" cellspacing="3" width="100%">
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Bilmærke:&nbsp;</b></font></td>
    <td width="50%"> <input type="text" name="Bilmaerke">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>Model:&nbsp;&nbsp;</b></font></td>
    <td width="50%"> <input type="text" name="Model">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Årgang:&nbsp;</b></font></td>
    <td width="50%"><font face="Verdana" size="2"><input type="text" name="Aargang">
      </font></td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Km:</b></font></td>
    <td width="50%"> <input type="text" name="Km">
    </td>
  </tr>
  <tr>
    <td width="50%"><b><font face="Verdana" size="2">
Pris:</font>&nbsp;&nbsp;</b></td>
    <td width="50%"><input type="text" name="Pris">
    </td>
  </tr>
  <tr>
    <td width="50%"><font face="Verdana" size="2"><b>
Forhandler:&nbsp;&nbsp;</b></font></td>
    <td width="50%"><input type="text" name="Forhandler">

    </td>
  </tr>
  <tr>
    <td width="50%"><b><font face="Verdana" size="2">ForhandlerId:</font>&nbsp;&nbsp;</b></td>
    <td width="50%"><input type="text" name="ForhandlerId" size="20">

    </td>
  </tr>
  <tr>
    <td width="50%"></td>
    <td width="50%">
      <p align="center"><input type="submit" value="Indsæt">
      </p>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
</form>

Det virker bare ikke. Jeg får denne fejl

ADODB.Connection.1 error '800a0bb9'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/bilerpaavestfyn/indsaet.asp, line 38
Avatar billede eagleeye Praktikant
19. juli 2002 - 23:11 #11
Nu ved jeg ikke hvordan indsaet.asp ser ud.. Jeg ville tror det er i en linie med Request.form, som sagt hvis man bruger andre upload kompunenter skal kan man ikke brige request.form..

Dette kode er som det skulle være hvis det var en anden upload kompunetn og jeg ville tror det var noget i samme stil....:

Kan du for test prøve at lave en fil som formen bliver send til som indeholder dette:

<%
Set fbase = Server.CreateObject("Chili.Upload.1")
dim strSentence, arrWords, strOneWord, element

Bilmaerke = fbase.form("Bilmaerke")

Reponse.write Bilmaerke
%>
Avatar billede riishoj Nybegynder
19. juli 2002 - 23:26 #12
Jeg er ikke helt med på det sidste du skriver.
indsaet.asp ser sådan ud

  <%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' SQL sætning opbygges
strSQL = "Insert into biler (Bilmaerke,Model,Aargang,Km,Pris,Forhandler, ForhandlerId) values('" & Request.Form("Bilmaerke") & "','" & Request.Form("Model") & "','" & Request.Form("Aargang") & "','" & Request.Form("Km") & "','" & Request.Form("Pris") & "','" & Request.Form("Forhandler") & "','" & Request.Form("ForhandlerId") & "')"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Der var en fejl i min db-forbindelse, som jeg har rettet. Nu får jeg fejlen

ADODB.Connection.1 error '80004005'

SQLState: 22005
Native Error Code: -3030
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.


/bilerpaavestfyn/indsaet.asp, line 40
Avatar billede riishoj Nybegynder
19. juli 2002 - 23:27 #13
Linje 40 hedder

Conn.Execute(strSQL)
Avatar billede eagleeye Praktikant
19. juli 2002 - 23:30 #14
Er det ikke samme kode du har brugt før??

Prøv evt at udskrive SQL sætnngen i stedet for Conn.Execute(strSQL)

Response.write strSQL
'Conn.Execute(strSQL)
Avatar billede riishoj Nybegynder
19. juli 2002 - 23:39 #15
Så får jeg følgende smørre

Insert into biler (Bilmaerke,Model,Aargang,Km,Pris,Forhandler, ForhandlerId) values('','','','','','','')
ADODB.Connection.1 error '80004005'

SQLState: 22005
Native Error Code: -3030
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.


/bilerpaavestfyn/indsaet.asp, line 41
Avatar billede eagleeye Praktikant
19. juli 2002 - 23:42 #16
Ja så virke request.form ikke..

Prøv rette koden til dette:

<%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

Set fbase = Server.CreateObject("Chili.Upload.1")

' SQL sætning opbygges
strSQL = "Insert into biler (Bilmaerke,Model,Aargang,Km,Pris,Forhandler, ForhandlerId) values('" & fbase.Form("Bilmaerke") & "','" & fbase.Form("Model") & "','" & fbase.Form("Aargang") & "','" & fbase.Form("Km") & "','" & fbase.Form("Pris") & "','" & fbase.Form("Forhandler") & "','" & fbase.Form("ForhandlerId") & "')"
Response.Write strSQL
'Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede riishoj Nybegynder
19. juli 2002 - 23:46 #17
Så er fejlen

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Form'

/bilerpaavestfyn/indsaet.asp, line 40
Avatar billede eagleeye Praktikant
19. juli 2002 - 23:57 #18
Har du en manual eller support side omkring Chili.Upload ??
Avatar billede riishoj Nybegynder
20. juli 2002 - 00:03 #19
Ja, der skulle stå noget om komponenten her

http://www.chilisoft.com/caspdoc/30html/Ch11-SpicePack-04.htm#P177_7610
Avatar billede riishoj Nybegynder
20. juli 2002 - 00:14 #20
Jeg bliver nødt til at stoppe nu. Håber vi kan fortsætte i morgen :)
Avatar billede eagleeye Praktikant
20. juli 2002 - 00:39 #21
Ok.. Jeg har kigget på det link og jeg kan ikke se man kan få form data med over... Har du prøvet st skrive en mail og spørge dem som du har dit web-hotel ved??

Jeg kan heller ikke finde så meget på nettet omkring det.
Eller kan du bruge en Upload function som ikke bruger en Upload kompunent??
Avatar billede riishoj Nybegynder
20. juli 2002 - 10:46 #22
Kan jeg adskille de 2 funktioner,- de fungerer jo ok hver for sig?
Jeg kan godt leve med, at man skal uploade billederne  seperat. Problemet er så at få scriptet til at finde den dbpost som billedet (linket) er knyttet til, og ikke bare optræde som en ny post i db'en. Ved du hvordan jeg gør det. Er det det her jeg så skal bruge?

Eks: "UPDATE tabel SET filsti = '" & nyt_billede & "' WHERE id = " & valgt_bil

og hvordan får jeg det puttet ind i Chili.Upload-scriptet?

Det er support på mit webhotel som har lavet scriptet, og de er ikke villige til yderligere programmering.

De skriver at der kan være en anden mulighed, nemlig upload uden komponent. Hvordan virker det? Jeg har læst andre steder, at det skulle være langsomt, men det er ok, hvis det ikke kan være anderledes.
Avatar billede riishoj Nybegynder
20. juli 2002 - 10:47 #23
De=du
Avatar billede eagleeye Praktikant
20. juli 2002 - 11:13 #24
Ok. Det var også mere et genrelt spørgsmål hvor man i  en form kunne angive både filer og text inputs og så gemme begge dele i en database..

Hvi du har en liste med biler kunne man evt trykke på en knap som hedder Upload billede form kunne så se sådan ud:

Valgt_bil_id = Request.QueryString("bilid") 'Sådan at linket overføre bilID

<FORM ACTION="fileupld.asp?bil=<%=Valgt_bil_id%>" METHOD="POST" ENCTYPE="multipart/form-data">

<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>


Så kommer vi til om Request.Querystring virker med Chili.Upload.
Så kan du lave dit script som gemmer som du har lavet, og så sette SQL fra INSERT INTO til:

valgt_bil = Request.QueryString("valgt_bil_id")
strSQL = "UPDATE tabel SET filsti = '" & FILSTI & "' WHERE id = " & valgt_bil


Men jeg ved heller ikke om det virker med Querystring når nu FORM data ikke kommer over.
Avatar billede eagleeye Praktikant
20. juli 2002 - 11:15 #25
Prøv lige at tage et kig her om det er noget ud kan bruger:

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=430

Det er et script som kan uploade uden brug af kompunenter og det kan havde både filer og andre input felter i FORM'en. Så du kan ligge billet ind med det samme.
Avatar billede riishoj Nybegynder
20. juli 2002 - 12:11 #26
Jeg har faktisk et script, som returnerer en tabel med bilerne. I tabellen er der mulighed for både at slette og opdatere poster. (Jeg tror faktisk, at det er dig som har hjulpet mig med at lave den!)Det ville være alle tiders hvis der også kunne være en knap til upload af billeder ud for hver bil.Scriptet ser sådan ud.

<%
'hvis session("brugerID") er tom så er man ikke logget ind.
if session("brugerID") = "" then
  response.write "du skal være logget ind"
else
' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

strSQL = "SELECT ID, Bilmaerke, Model, Aargang, Km , Pris , for.navn as Forhandler FROM biler left join for ON biler.ForhandlerId = for.forhandlerId WHERE for.forhandlerId = " & Session("brugerID") & ";"
 
Set rs = Conn.Execute(strSQL)
if NOT rs.EOF then
' Hvis der er fundet poster på søgningen
Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr color=#000000 size=1><br>"

    Response.Write "<table border=0 align=center cellpadding=3>"
    Response.Write "<tr bgcolor=#336699><th><font color=white face=verdana size=2>Id</font></th><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</font></th><th><font color=white face=verdana size=2>Km</font></th><th><font color=white face=verdana size=2>Pris</font></th><th><font color=white face=verdana size=2>Forhandler</font></th><th><font color=white face=verdana size=2>Slet</font></th><th><font color=white face=verdana size=2>Opdater</font></th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr bgcolor=#000066><td align=right><font color=white>" & rs("Id") & "</font></td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Forhandler") & "</td>"
        Response.Write "<td align=center><a href='slet.asp?bilid="&rs("ID")&"'>slet</a></td>"
        Response.Write "<td align=center><a href='opdater.asp?bilid="&rs("ID")&"'>opdater/ret</a></td></tr>"
        rs.MoveNext
    Loop
   
    Response.Write "</table><br>"
    Response.Write "<font color=black face=verdana size=2>Her kan du indsætte nye biler i bildatabasen<br>"
    Response.Write "<font color=#000000 face=verdana size=2><a href='indsaet.htm'>Indsæt</a><br>"

end if
Conn.Close
Set Conn = Nothing
end if
%>
Avatar billede riishoj Nybegynder
20. juli 2002 - 14:08 #27
Hvordan får jeg puttet det du har lavet

Valgt_bil_id = Request.QueryString("bilid") 'Sådan at linket overføre bilID

<FORM ACTION="fileupld.asp?bil=<%=Valgt_bil_id%>" METHOD="POST" ENCTYPE="multipart/form-data">

<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>


ind i scriptet ovenover. Jeg tror det vil være løsningen!
Avatar billede eagleeye Praktikant
20. juli 2002 - 14:42 #28
JEg kan se du har denne linie ind:

Response.Write "<td align=center><a href='opdater.asp?bilid="&rs("ID")"'>opdater/ret</a></td></tr>"

Man kunne lave en magen til:

Response.Write "<td align=center><a href='billede.asp?bilid="&rs("ID")"'>opdater/ret billede</a></td></tr>"

---- Filen billede.asp skal så være formen, indeholde dette:
Valgt_bil_id = Request.QueryString("bilid") 'Sådan at linket overføre bilID

<FORM ACTION="fileupld.asp?bil=<%=Valgt_bil_id%>" METHOD="POST" ENCTYPE="multipart/form-data">

<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>
Avatar billede riishoj Nybegynder
20. juli 2002 - 17:55 #29
Jeg har prøvet dit forslag. Problemet er, at linket ikke bliver sat sammen med den bil, man vælger i tabellen, men  bliver vist som den næste post i db-tabellen, og det er jo ikke smart.
Avatar billede eagleeye Praktikant
20. juli 2002 - 17:59 #30
Så skal du havde tilføget en kolonne mere efter denne:

<th><font color=white face=verdana size=2>Opdater</font></th>

Sådan en:
<th><font color=white face=verdana size=2>Opdater Billede</font></th>
Avatar billede riishoj Nybegynder
20. juli 2002 - 18:07 #31
Nej, nej eagleeye, det er ikke det jeg mener, det er meget værre!
Når jeg f.eks. vil uploade et billede af bilen med f.eks ID=10, så ender linket ikke i kolonnen Link ud for bilen ID=10, men det bliver sat ind i den første tomme række i db-tabellen, hvis du forstår, hvad jeg mener
Avatar billede eagleeye Praktikant
20. juli 2002 - 18:11 #32
åh du mener i databasen??

Prøv at udskrive den SQL som skal sætte billedet ind for en bil:
Avatar billede riishoj Nybegynder
20. juli 2002 - 18:18 #33
Kunne se sådan ud

Du har succesfuldt uploadet toyota3.jpg
INSERT INTO biler (Filstier) VALUES ('home/sites/site122/web/upload/filer/toyota3.jpg')
Avatar billede eagleeye Praktikant
20. juli 2002 - 18:23 #34
Ok den skal laves om til UPDATE:

Denne linie:
strSQL ="INSERT INTO biler (Filstier) VALUES ('" & FILSTI & "')"

Skal laves om til dette:

valgt_bil = Request.QueryString("valgt_bil_id")
strSQL = "UPDATE biler SET Filstier = '" & FILSTI & "' WHERE id = " & valgt_bil


Prøv at udskrive SQL'en så  skulle der gerne komme til at stå ID=xx hvor xx er ID på den bil billedet tilhøre.
Avatar billede riishoj Nybegynder
20. juli 2002 - 18:28 #35
Så sker der dette

Du har succesfuldt uploadet toyota2.jpg


ADODB.Connection.1 error '80004005'

SQLState: 37000
Native Error Code: -3100
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.


/bilerpaavestfyn/upload.asp, line 44
Avatar billede eagleeye Praktikant
20. juli 2002 - 19:07 #36
Denne skal passe med det link som bliver overført:

valgt_bil = Request.QueryString("valgt_bil_id")

hedder Querystring fra form'en ikke bil???

valgt_bil = Request.QueryString("bil")
Avatar billede eagleeye Praktikant
20. juli 2002 - 19:08 #37
Der skal så det samme som efter ? her bil:
<FORM ACTION="fileupld.asp?bil=xx" METHOD="POST" ENCTYPE="multipart/form-data">
Avatar billede eagleeye Praktikant
20. juli 2002 - 19:33 #38
Et andet alternativ jeg kom til at tænke på var om man kan bruge Request.BinaryRead i sted for Form, hvis de to sidte indlæg ikke giver noget så prøv det jeg forslår i dette indlæg:

Prøv at lave din upload form om til dette:
<FORM ACTION="fileupld.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<input type="hidden" name="bil" value="<%=Request.QueryString("bilid")">
<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>



I filen fileupld.asp skal denne linie:
valgt_bil = Request.QueryString("valgt_bil_id")

Rettes til:
valgt_bil = Request.BinaryRead("bil")
Avatar billede riishoj Nybegynder
20. juli 2002 - 19:52 #39
Ups - jeg fatter ikke hvad du mener med

Denne skal passe med det link som bliver overført:

valgt_bil = Request.QueryString("valgt_bil_id")

hedder Querystring fra form'en ikke bil???

valgt_bil = Request.QueryString("bil")
Avatar billede eagleeye Praktikant
20. juli 2002 - 19:57 #40
Din form ser sådan ud og bil ID overføres gennem bil og ikke valgt_bil_id:

<FORM ACTION="fileupld.asp?bil=<%=Valgt_bil_id%>" METHOD="POST" ENCTYPE="multipart/form-data">

Derfor prøv at retter
valgt_bil = Request.QueryString("valgt_bil_id")

Til:
valgt_bil = Request.QueryString("bil")
Avatar billede riishoj Nybegynder
20. juli 2002 - 20:03 #41
OK
Avatar billede riishoj Nybegynder
20. juli 2002 - 20:13 #42
Yes, så virker det!! Du er bare skrap til det her.
Næste problem er så at hente billedet igen. Jeg har jo det her script, som henter alle biler i databasen. Jeg kunne godt tænke mig en celle i den tabel med et link til billedet. Det kunne være et billede af et lille fotoapparat (det har jeg set nogen steder) eller bare en tekst. Kan du også klare den for mig?? Scriptet ser sådan ud

<% Response.Buffer = True %>

<html>

<head>

<style type="text/css">
<!--
A:link {text-decoration: underline; color: #ffffff}
A:visited {text-decoration: none; color: #ffffff}
A:active {text-decoration: none; color: #ffffff}
A:hover {text-decoration: underline; color: #66ccff}
    INPUT {
    FONT-FAMILY: Arial, Helvetica,Verdana; FONT-SIZE: 90%
}

!-->
</style>

<title>Søg i bildatabasen</title>
</head>
<body bgcolor="#336699">



<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" colspan="3" bgcolor="#FFFFFF" style="border: 1 solid #000000">
      <h1 align="center"><img border="0" src="images/top.jpg"></h1>
    </td>
  </tr>
  <tr>
    <td width="10%" bgcolor="#336699">&nbsp;</td>
    <td bgcolor="#FFFFFF" align="center" width="80%">&nbsp;
      <p>
      <%
' Henter værdien fra search.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))
strForhandler = Trim(Request.Form("Forhandler"))



' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler  FROM  biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"
strSQL = strSQL & " AND (Forhandler LIKE '%" & strForhandler & "%') ORDER BY Bilmaerke, Model"

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr><br>"
    Response.Write "<table border=0 cellpadding=3>"
   
    Response.Write "<tr bgcolor=#336699><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</th><th><font color=white face=verdana size=2>Km</th><th><font color=white face=verdana size=2>Pris</th><th><font color=white face=verdana size=2>Forhandler</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr bgcolor=#000066><td><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
      'Find link til forhandleren...
  strSQL = "SELECT link FROM for WHERE forhandlerId =" & rs("forhandlerId")
  set linkRs = Conn.execute(strSQL)
  if (linkRs.EOF) OR (Len("" & linkRs("link") & "") = 0) then
          Response.Write "<td align=left><font color=white face=verdana size=2>" & rs("Forhandler") & "</td></tr>"
  else
    Response.Write "<td align=left><font color=white face=verdana size=2><a href=""" & linkRs("link") & """>" & rs("Forhandler") & "</a></td></tr>"
  end if

       
       
       


        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=black  face=verdana size=3><b>Der er ikke fundet noget på denne søgning</b></p><br>"
End If

' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
20. juli 2002 - 20:21 #43
Du kan tilføge noget i stil med:


if Len("" & rs("Filstier")) > 0 then
  'Billede findes i databasen
  Response.write "<img src=""" & rs("Filstier") & """>"
else
  'Ingen billede vis default billede
  Response.write "<img src=""/images/default.jpg"">"
end if


Det kan være det skal ind i en  <td>  i den tabel du udskriver ??
Avatar billede riishoj Nybegynder
20. juli 2002 - 20:34 #44
Jeg har prøvet at sætte det ind i scriptet sådan her

<% Response.Buffer = True %>

<html>

<head>

<style type="text/css">
<!--
A:link {text-decoration: underline; color: #ffffff}
A:visited {text-decoration: none; color: #ffffff}
A:active {text-decoration: none; color: #ffffff}
A:hover {text-decoration: underline; color: #66ccff}
    INPUT {
    FONT-FAMILY: Arial, Helvetica,Verdana; FONT-SIZE: 90%
}

!-->
</style>

<title>Søg i bildatabasen</title>
</head>
<body bgcolor="#336699">



<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" colspan="3" bgcolor="#FFFFFF" style="border: 1 solid #000000">
      <h1 align="center"><img border="0" src="images/top.jpg"></h1>
    </td>
  </tr>
  <tr>
    <td width="10%" bgcolor="#336699">&nbsp;</td>
    <td bgcolor="#FFFFFF" align="center" width="80%">&nbsp;
      <p>
      <%
' Henter værdien fra search.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))
strForhandler = Trim(Request.Form("Forhandler"))



' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler  FROM  biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"
strSQL = strSQL & " AND (Forhandler LIKE '%" & strForhandler & "%') ORDER BY Bilmaerke, Model"

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr><br>"
    Response.Write "<table border=0 cellpadding=3>"
   
    Response.Write "<tr bgcolor=#336699><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</th><th><font color=white face=verdana size=2>Km</th><th><font color=white face=verdana size=2>Pris</th><th><font color=white face=verdana size=2>Forhandler</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr bgcolor=#000066><td><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
      'Find link til forhandleren...
  strSQL = "SELECT link FROM for WHERE forhandlerId =" & rs("forhandlerId")
  set linkRs = Conn.execute(strSQL)
  if (linkRs.EOF) OR (Len("" & linkRs("link") & "") = 0) then
          Response.Write "<td align=left><font color=white face=verdana size=2>" & rs("Forhandler") & "</td></tr>"
  else
    Response.Write "<td align=left><font color=white face=verdana size=2><a href=""" & linkRs("link") & """>" & rs("Forhandler") & "</a></td></tr>"
  end if

    if Len("" & rs("Filstier")) > 0 then
  'Billede findes i databasen
  Response.write "<td align=left><font color=white face=verdana size=2><img src=""" & rs("Filstier") & """>"
else
  'Ingen billede vis default billede
  Response.write "<td align=left><font color=white face=verdana size=2><img src=""/images/default.jpg"">"
end if


   
       
       


        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=black  face=verdana size=3><b>Der er ikke fundet noget på denne søgning</b></p><br>"
End If

' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>

men jeg får fejlen

error '800a0cc1'
ADO Could not find the object in the collection corresponding to the name or ordinal reference requested by the collection.

/bilerpaavestfyn/resultat.asp, line 85
Avatar billede eagleeye Praktikant
20. juli 2002 - 20:38 #45
arh overså lige din SQL sætning:

strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler  FROM  biler WHERE"


Der skal Filstier kolonnen jo også med:

strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler, Filstier  FROM  biler WHERE"
Avatar billede eagleeye Praktikant
20. juli 2002 - 20:41 #46
Lige et par kommentare til koden..

Der mangler </td> efter image tagen bliver lavet.

De to </tr>  skal fjernes fra if sætningen oven over og flyttes ned efter billeder er udskrevet:


Response.write "</tr>"
Avatar billede riishoj Nybegynder
20. juli 2002 - 21:07 #47
Jeg tror de er rigtigt nu. Dvs. hvis der er et billede tilknyttet bilen, så vil det blive vist ved siden af tabellen. Hvordan vil det se ud hvis det er et stort billede? Kan det ikke laves, så det er en knap eller lille billede, evt. fotoapparat, som sender en videre til billedet?
Der er også et problem med stien til billedet, da den virtuelle og den fyskiske stil bliver blandet sammen. Prøv at se her

http://www.riishojwebsoft.dk/bilerpaavestfyn/home/sites/site122/web/upload/filer/toyota2.jpg.

Jeg ved, at billederne havner i http://www.riishojwebsoft.dk/bilerpaavestfyn/upload/filer

så stien der bliver lagt i db'en er altså den fysiske sti på serveren!!!
Avatar billede eagleeye Praktikant
20. juli 2002 - 21:13 #48
det kan være det skal et / ind i image tagen så den tager stien fra roden af serveren:

Response.write "<td align=left><font color=white face=verdana size=2><img src=""/" & rs("Filstier") & """>"
Avatar billede eagleeye Praktikant
20. juli 2002 - 21:16 #49
I sted for at vise billedet af bilen kan man eksvis vise et lille billede og så link til en fil som viser billedet vha af en querystring med bilid:

Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid="&rs("id")&"""><img src="foto.gif"></a></td>"
Avatar billede riishoj Nybegynder
20. juli 2002 - 21:26 #50
Jeg har prøvet dit første forslag, men der kommer stadig intet billede, så de er altså et problem med stien til billedet.
Jeg synes bedst om din sidste løsning, men problemet med stien skal vel løses først.
Avatar billede eagleeye Praktikant
20. juli 2002 - 21:35 #51
Hvordan ser en sti ud sådan:

/bilerpaavestfyn/home/sites/site122/web/upload/filer/toyota2.jpg

eller ??
Avatar billede riishoj Nybegynder
20. juli 2002 - 21:42 #52
Billederne havner i /home/sites/site122/web/upload/filer/ på serveren.
Når jeg skal hente dem er stien http://www.riishojwebsoft.dk/bilerpaavestfyn/upload/filer

Når jeg kigger på egenskaber på det billede jeg har lagt i tabellen er url'en

http://www.riishojwebsoft.dk/bilerpaavestfyn/home/sites/site122/web/upload/filer/toyota2.jpg.
Avatar billede eagleeye Praktikant
20. juli 2002 - 21:46 #53
og dette bliver skrvet i databasen home/sites/site122/web/upload/filer/xxxx.gif

Er home i root folderen på serveren?
Avatar billede eagleeye Praktikant
20. juli 2002 - 21:47 #54
for så bør det virker hvis man skriver / foran i img src="/home/sites/site122/.../xxx.gif
Avatar billede riishoj Nybegynder
20. juli 2002 - 21:58 #55
Jeg ved ikke om home er i root folderen. Jeg har spurgt support om stien og fik at vide at den var

/home/sites/site122/web/upload/filer/
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:00 #56
Kig evt. om jeg skulle have lavet en fejl

<%
' Henter værdien fra search.htm
strBilmaerke = Trim(Request.Form("Bilmaerke"))
strModel = Trim(Request.Form("Model"))
strAargang = Trim(Request.Form("Aargang"))
strKm = Trim(Request.Form("Km"))
strPris = Trim(Request.Form("Pris"))
strForhandler = Trim(Request.Form("Forhandler"))



' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, ForhandlerId, Bilmaerke, Model, Aargang, Km , Pris , Forhandler, Filstier  FROM  biler WHERE"
strSQL = strSQL & " (Bilmaerke LIKE '%" & strBilmaerke & "%')"
strSQL = strSQL & " AND (Model LIKE '%" & strModel & "%')"
strSQL = strSQL & " AND (Aargang LIKE '%" & strAargang & "%')"
strSQL = strSQL & " AND (Km BETWEEN " & strKm & ")"
strSQL = strSQL & " AND (Pris BETWEEN " & strPris & ")"
strSQL = strSQL & " AND (Forhandler LIKE '%" & strForhandler & "%') ORDER BY Bilmaerke, Model"

' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString


' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<h4 align=center><font face=Verdana>Her er resultatet af din søgning</font></h4><hr><br>"
    Response.Write "<table border=0 cellpadding=3>"
   
    Response.Write "<tr bgcolor=#336699><th ><font color=white face=verdana size=2>Bilmærke</font></th><th><font color=white face=verdana size=2>Model</font></th><th><font color=white face=verdana size=2>Årgang</th><th><font color=white face=verdana size=2>Km</th><th><font color=white face=verdana size=2>Pris</th><th><font color=white face=verdana size=2>Forhandler</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr bgcolor=#000066><td><font color=white face=verdana size=2>" & rs("Bilmaerke") & "</font></td>"
        Response.Write "<td><font color=white face=verdana size=2>" & rs("Model") & "</td>"
        Response.Write "<td align=center><font color=white face=verdana size=2>" & rs("Aargang") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Km") & "</td>"
        Response.Write "<td align=right><font color=white face=verdana size=2>" & rs("Pris") & "</td>"
      'Find link til forhandleren...
  strSQL = "SELECT link FROM for WHERE forhandlerId =" & rs("forhandlerId")
  set linkRs = Conn.execute(strSQL)
  if (linkRs.EOF) OR (Len("" & linkRs("link") & "") = 0) then
          Response.Write "<td align=left><font color=white face=verdana size=2>" & rs("Forhandler") & "</td>"
  else
    Response.Write "<td align=left><font color=white face=verdana size=2><a href=""" & linkRs("link") & """>" & rs("Forhandler") & "</a></td>"
  end if

    if Len("" & rs("Filstier")) > 0 then
  'Billede findes i databasen
  Response.write "<td align=left><font color=white face=verdana size=2><img src=""/" & rs("Filstier") & """></td></tr>"
else
  'Ingen billede vis default billede
  Response.write "<td align=left><font color=white face=verdana size=2><img src=""/images/default.jpg""></td></tr>"
end if


   
       
       


        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=black  face=verdana size=3><b>Der er ikke fundet noget på denne søgning</b></p><br>"
End If

' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:02 #57
hmm det ser nu rigtig nok ud. Prøv at view source og se hvilken sti den skriver i img src ...
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:04 #58
Hvis den ligger i root folderen så skal det virke, enten med eller uden / i tagen....
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:13 #59
Den skriver sådan

<img src="//home/sites/site122/web/upload/filer/toyota3.jpg">
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:19 #60
Ok. så skal der vist ikke en / ind i iamge tagen.
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:19 #61
Response.write "<td align=left><font color=white face=verdana size=2><img src=""" & rs("Filstier") & """></td></tr>"
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:20 #62
Ser stien så rigtig ud hvis du igen kigger med view source?
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:25 #63
Ja, så ser den sådan ud

<img src="/home/sites/site122/web/upload/filer/toyota3.jpg">
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:33 #64
og den viser ikke billet??
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:34 #65
Nej, desværre
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:35 #66
Hvis jeg skriver: http://www.riishojwebsoft.dk/upload/filer/toyota3.jpg
Kommer der et billed frem..

Hvorimod: http://www.riishojwebsoft.dk/home/sites/site122/web/upload/filer/toyota3.jpg
ikke giver noget.
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:42 #67
Det har jeg også prøvet. Jeg har ikke helt styr på det med virtuelle og fysiske stier.
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:47 #68
Jeg kan da prøve at give mit bud, på baggrung af mit web-hotel hos Azero.dk.

root folderen på mit web hotel hedder / se fra virtuel siden. Så hvis jeg skriver /upload/xxx.gif betyder det at upload folderen i i roden.

Så er der en fysik sti til / og selv folderen hedder www og hvis jeg skriver: D:\homes\xxxx\www\upload\xxx.gif få jeg fat i samme billede fil.
Avatar billede riishoj Nybegynder
20. juli 2002 - 22:53 #69
Min db ligger ikke på samme server, som billederne bliver uploaded til, men det kan vel ikke være problemet?
Avatar billede eagleeye Praktikant
20. juli 2002 - 22:58 #70
Billederne skal ligge på samme server for at blive vist hvis man angiver stien mend /upload/xxx.gif, hvis man hendter et billede fra en anden server skal man skriver http://www.xxx.dk/xxx.gif
Avatar billede riishoj Nybegynder
20. juli 2002 - 23:04 #71
Hva' gør jeg så nu? Problemet opstår ved at mit webhotel (Enavn) bruger Linux-servere, som ikke understøtter Access-databaser. Man har derfor lagt min Access-database på en Windows-server og lavet en DSN connection til denne. Skal stierne så angives anderledes i scriptet?
Avatar billede eagleeye Praktikant
20. juli 2002 - 23:08 #72
Ja det ville jeg mene du har disse to linier:

FILSTI = ("home/sites/site122/web/upload/filer/" & arrWords(element))
fbase.SaveToFile ("/home/sites/site122/web/upload/filer/" & arrWords(element))

Filen bliver gemt rigtig så det som skal rettes er FILSTI som bliver gemt i databasen:
FILSTI = "/upload/filer/" & arrWords(element)
Avatar billede riishoj Nybegynder
20. juli 2002 - 23:22 #73
Puha, den var svær men nu virker det!!:)
Hvis du stadig har energi til at hænge på, så vil jeg godt vende tilbage til din anden løsning, altså den med et link til billedet. Du skriver

I sted for at vise billedet af bilen kan man eksvis vise et lille billede og så link til en fil som viser billedet vha af en querystring med bilid:

Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid="&rs("id")&"""><img src="foto.gif"></a></td>"

Jeg skal altså lave en side visbil.asp og så indsætte ovenstående i stedet for

Response.write "<td align=left><font color=white face=verdana size=2><img src=""/" & rs("Filstier") & """>"

Er det rigtigt forstået?
Avatar billede eagleeye Praktikant
20. juli 2002 - 23:32 #74
Jeps det er rigtigt det kan være du skal hvade taget="blank" hvis den skal åbne et nyt browser vindue:

Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid="&rs("id")&""" TARGET=""blank""><img src="foto.gif"></a></td>"


Filen visbil.asp kunne se sådan ud:

strSQL = "SELECT Filstier FROM biler WHERE id = " & Request.QueryString("bilid")


' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

<html>
<body>
<%
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
  Response.write "<img src=""/" & rs("Filstier") & """>"
end if
%>
</body>
</html>


Det var den helt lette/skrabede vis bille fil, du kan evt indsætte nogle andre informationer omkring bilen???
Avatar billede riishoj Nybegynder
20. juli 2002 - 23:49 #75
Hmm får denne fejl

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/bilerpaavestfyn/resultat.asp, line 87

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/bilerpaavestfyn/resultat.asp, line 87

Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid="&rs("id")&" TARGET=""blank""><img src="foto.gif"></a></td>"
----------------------------------------------------------------------------------------------------------------------------------------^
Avatar billede eagleeye Praktikant
20. juli 2002 - 23:54 #76
Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid=" & rs("id") & """ TARGET=""blank""><img src=""foto.gif""></a></td>"
Avatar billede riishoj Nybegynder
21. juli 2002 - 00:03 #77
Ja, de gjorde en forskel. Når jeg så klikker på linket og henter visbil.asp sker dette

strSQL = "SELECT Filstier FROM biler WHERE id = " & Request.QueryString("bilid") ' Databaseforbindelse ConnString = "DSN=riishojwebsoftdkdsn" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/bilerpaavestfyn/visbil.asp, line 23
Avatar billede eagleeye Praktikant
21. juli 2002 - 00:07 #78
skriver den det ?? så mangler der <% til at state med:
<%
koden
%>
<html>...
Avatar billede riishoj Nybegynder
21. juli 2002 - 00:16 #79
Øh, nu går det helt galt

ADODB.Recordset.1 error '80004005'

SQLState: 37000
Native Error Code: -3100
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id = 6 TARGET='.


/bilerpaavestfyn/visbil.asp, line 21

Scriptet ser sådan ud nu

<%

strSQL = "SELECT Filstier FROM biler WHERE id = " & Request.QueryString("bilid")


' Databaseforbindelse
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
  Response.write "<img src=""/" & rs("Filstier") & """>"
end if
%>
Avatar billede eagleeye Praktikant
21. juli 2002 - 00:20 #80
Nej det er eksperten som f****** teksten op, jeg havde samme problem i går aftes med en anden... Ekskperten laver 3 """ foran TARGET om til en "

Så foran TARGET=""blank"" skal der altså være 3 """ efter hinanden..

Response.write "<td align=left><font color=white face=verdana size=2><a href=""visbil.asp?bilid=" & rs("id") & """ TARGET=""blank""><img src=""foto.gif""></a></td>"
Avatar billede eagleeye Praktikant
21. juli 2002 - 00:21 #81
væk igen...
Avatar billede riishoj Nybegynder
21. juli 2002 - 00:38 #82
Det var da godt nok underligt, men nu virker det. Jeg kunne godt tænke mig at udvide informationerne omkring de enkelte biler. Prøver lige at knokle med det selv, og kan jeg ikke finde ud af det, så opretter jeg et nyt spørgsmål. Du har sandelig arbejdet hårdt for de sølle 60 point, tusind tak for din indsats. Send lige et svar, så du kan får dine point:)
Avatar billede eagleeye Praktikant
21. juli 2002 - 00:47 #83
Her er svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
I går 16:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
I går 13:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
11/1013:35 Bruger på Win11 Af lurup i Browsere
White papers
Flere white papers »