Vet inte riktigt, men är det så här du menar: (?)
response.write "<img src=""bilder/" & senaste("bild") & """>"
Frågan#1
Hej!
Jag behöver lite hjälp med bild hämtning från databas med Response.Write
Bilder lagras i katalog bilder och bildnamnet i databas frågan är hur hämtar jag bilden?
Nuvarande kod:
<%
Dim connect, query, senaste, test, fileName
'## -- hur många inlägg ska visas per sida --
intPageSize = 5
'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM items Where test='Y' ORDER BY dateCreated DESC"
query = "SELECT * FROM items Where filename ORDER BY dateCreated DESC"
'senaste.Open query, Connect
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-30,Date) & "#"
RecSet.Open SQL, Connect,1,2
Set RecSet= Nothing
'## -- hur många poster ska visas per sida --
senaste.PageSize = intPageSize
'## -- öppna och hämta alla records --
senaste.Open query, Connect, 3, 1 'Osäker på: , 3, 1
'## -- vilken sida i recordset uppdelningen ska visas --
senaste.AbsolutePage = intPage
'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = senaste.PageCount
If senaste.EOF Then
Response.Write "Det finns inga inlägg."
Else
'## -- lista alla inlägg som finns i db --
Do Until senaste.EOF or intRecordCount \>= intPageSize
intRecordCount = intRecordCount + 1
response.write "<tr><td><img src=""get7.asp?fileName=" & Request.QueryString("id")& Request.QueryString ("filename")& ">"""
response.write "<td><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"
response.write "<td> Categori:"
Response.write eval(senaste("category"))
response.write "<td>"
response.write "<td>Stad:" & senaste("stad") & ""
response.write "<td>Pris:" & senaste("price") & " Kr </td></tr> "
senaste.MoveNext
Loop
End If
'## -- clean up --
senaste.Close
Set senaste= Nothing
Connect.Close
Set Connect= Nothing
'## -- visa sidnavigeringen --
'## -- intPage = vilken sida som ska visas --
'## -- intTotalPages = hur många sidor som recordsetet är uppdelat i --
Call PageNavigation(intPage, intTotalPages)
'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
Dim strScriptName
'## -- vilken sida ska navigeringen länka till --
strScriptName = Request.ServerVariables("SCRIPT_NAME")
'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
If CInt(WichPage) \> 1 Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & WichPage - 1 & "'\>\<\< Föregående\</A\> "
Else
Response.Write "\<\< Föregående "
End If
'## -- lista ut alla sidnummer --
For I = 1 To HowManyPages
If CInt(WichPage) \<\> I Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & I & "'\>" & I & "\</A\> "
Else
Response.Write "\[ \<B\>" & I & "\</B\> \]"
End If
Next
'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
If CInt(WichPage) \< CInt(HowManyPages) Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & WichPage + 1 & "'\>Nästa \>\>"
Else
Response.Write "Nästa \>\>"
End If
End Sub
%>
</h3>
</table>
</body>
</html>
<%
Recordset1.Close()
%>
