Indsæt billede fra database
Jeg ønsker at indsætte et billede på nedenstående side før " <%= strfornavn %> <%= strefternavn %> ". Billedet befinder sig i tabellen"1htxafra" i feltet "image" som et link. Normalt kan jeg få det til at virke ved at kalde på billedet med <img src="<% Response.Write(RecSet("image")) %>"> men jeg ved ikke hvordan jeg skal få fat i billedet
i nedenstående fil.
Her er koden:
<link rel="stylesheet" href="screen.css" type="text/css" media="screen">
<!-- #include file="menu.asp" -->
<!-- Minus AutoDato -->
<%@ LANGUAGE = VBScript %>
<%
Response.Buffer = True
Response.ContentType = "text/html; charset=iso-8859-1"
'--------------------------------------------------------------
'--- Declarations
'--------------------------------------------------------------
Dim objConn
Dim strConn
Dim indexValue
Dim strIndices
Dim arrIndices
Dim intTotalRecords
Dim strIndex
'--------------------------------------------------------------
'--- Initialization
'--------------------------------------------------------------
%>
<!-- #include file="connect2.asp" -->
<!-- #include FILE="velkommen.asp" -->
<%
strIndices = createIndexString()
arrIndices = split(strIndices, ",", -1, 1)
intTotalRecords = UBound(arrIndices)
strIndex = request("findindex")
If strIndex = "" Then
strIndex = 0
End If
If strIndex + 1 > intTotalRecords Then
strIndex = 0
ElseIf strIndex < 0 Then
strIndex = intTotalRecords - 1
End If
indexValue = arrIndices(strIndex)
'--------------------------------------------------------------
'--- Functions
'--------------------------------------------------------------
' ++++++++++++++++ createIndexString +++++++++++++++++++++
Function createIndexString()
Dim strSQL
Dim objRS
Dim strIndexString
Dim numberOfRecords
Dim strData
Const adClipString = 2
strSQL = "Select Id From 1htxafra where fagnr = 20 order by efternavn, fornavn"
objConn.open
Set objRS = objConn.Execute(strSQL)
strIndexString = objRS.getstring(adClipString, , , "," , "Null Entry")
objRS.close
Set objRS = Nothing
createIndexString = strIndexString
End Function
' ++++++++++++++++ filForm +++++++++++++++++++++
Sub fillForm(recordNumber)
Dim strSQL
Dim objRS
Dim strData
Dim strID
Dim strfornavn
Dim strefternavn
Dim struge_32f
Dim struge_33f
Dim struge_34f
Dim struge_35f
Dim struge_36f
Dim struge_37f
Dim struge_38f
Dim struge_39f
Dim struge_40f
Dim struge_41f
Dim struge_43f
Dim struge_44f
Dim struge_45f
Dim struge_46f
Dim struge_47f
Dim struge_48f
Dim struge_49f
Dim struge_50f
Dim struge_51f
Dim struge_2f
Dim struge_3f
Dim struge_4f
Dim struge_5f
Dim struge_6f
Dim struge_7f
Dim struge_8f
Dim struge_9f
Dim struge_11f
Dim struge_12f
Dim struge_13f
Dim struge_14f
Dim struge_15f
Dim struge_17f
Dim struge_18f
Dim struge_19f
Dim struge_21f
Dim struge_22f
Dim struge_23f
Dim signDate
Const adClipString = 2
strSQL = "Select Id, fornavn, efternavn, uge_32f, uge_33f, uge_34f, uge_35f, uge_36f, uge_37f, uge_38f, uge_39f, uge_40f, uge_41f, uge_43f, uge_44f, uge_45f, uge_46f, uge_47f,uge_48f, uge_49f, uge_50f, uge_51f, uge_2f, uge_3f, uge_4f, uge_5f, uge_6f, uge_7f, uge_8f, uge_9f, uge_11f, uge_12f, uge_13f, uge_14f, uge_15f, uge_17f, uge_18f,uge_19f, uge_21f, uge_22f, uge_23f, signdate " _
& "from 1htxafra where ID = " & recordNumber
Set objRS = objConn.Execute(strSQL)
strData = objRS.GetString(adClipString,1, , , "Null Entry")
objRS.close
Set objRS = nothing
objConn.close
Set objConn = nothing
' Pull the first value out one field at a time from the front of the string,
' then adjust the string so it no longer has that value
strID = left(strData,instr(strData,vbTab)-1)
strData = right(strData,len(strData) - instr(strData,vbTab))
strfornavn = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
strefternavn = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_32f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_33f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_34f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_35f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_36f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_37f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_38f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_39f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_40f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_41f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_43f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_44f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_45f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_46f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_47f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_48f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_49f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_50f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_51f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_2f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_3f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_4f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_5f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_6f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_7f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_8f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_9f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_11f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_12f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_13f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_14f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_15f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_17f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_18f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_19f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_21f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_22f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
struge_23f = left(strData,instr(strData,vbTab) - 1)
strData = right(strData,len(strData) - instr(strData,vbTab))
signDate = strData
%>
<table>
<form method=post action="1adas.asp">
<tr><td colspan="10"><H2><b><%= strfornavn %> <%= strefternavn %> <% If request("Success") = "True" Then %><font color="#FF0000">opdateret!</font>
<% End If %></b></H2></td>
<td> </td>
<tr>
</tr>
<tr>
<td width="5%">uge 32</td>
<td width="5%">uge 33</td>
<td width="5%">uge 34</td>
<td width="5%">uge 35</td>
<td width="5%">uge 36</td>
<td width="5%">uge 37</td>
<td width="5%">uge 38</td>
<td width="5%">uge 39</td>
<td width="5%">uge 40</td>
<td width="5%">uge 41</td>
<td width="5%">uge 43</td>
<td width="5%">uge 44</td>
<td width="5%">uge 45</td>
<td width="5%">uge 46</td>
<td width="5%">uge 47</td>
<td width="5%">uge 48</td>
<td width="5%">uge 49</td>
<td width="5%">uge 50</td>
<td width="5%">uge 51</td>
</tr>
<tr>
<td width="5%"><input name="U32F" size="3" value="<% =struge_32f %>"></td>
<td width="5%"><input name="U33F" size="3" value="<% =struge_33f %>"></td>
<td width="5%"><input name="U34F" size="3" value="<% =struge_34f %>"></td>
<td width="5%"><input name="U35F" size="3" value="<% =struge_35f %>"></td>
<td width="5%"><input name="U36F" size="3" value="<% =struge_36f %>"></td>
<td width="5%"><input name="U37F" size="3" value="<% =struge_37f %>"></td>
<td width="5%"><input name="U38F" size="3" value="<% =struge_38f %>"></td>
<td width="5%"><input name="U39F" size="3" value="<% =struge_39f %>"></td>
<td width="5%"><input name="U40F" size="3" value="<% =struge_40f %>"></td>
<td width="5%"><input name="U41F" size="3" value="<% =struge_41f %>"></td>
<td width="5%"><input name="U43F" size="3" value="<% =struge_43f %>"></td>
<td width="5%"><input name="U44F" size="3" value="<% =struge_44f %>"></td>
<td width="5%"><input name="U45F" size="3" value="<% =struge_45f %>"></td>
<td width="5%"><input name="U46F" size="3" value="<% =struge_46f %>"></td>
<td width="5%"><input name="U47F" size="3" value="<% =struge_47f %>"></td>
<td width="5%"><input name="U48F" size="3" value="<% =struge_48f %>"></td>
<td width="5%"><input name="U49F" size="3" value="<% =struge_49f %>"></td>
<td width="5%"><input name="U50F" size="3" value="<% =struge_50f %>"></td>
<td width="5%"><input name="U51F" size="3" value="<% =struge_51f %>"></td>
</tr>
<tr>
<td width="5%">uge 2</td>
<td width="5%">uge 3</td>
<td width="5%">uge 4</td>
<td width="5%">uge 5</td>
<td width="5%">uge 6</td>
<td width="5%">uge 7</td>
<td width="5%">uge 8</td>
<td width="5%">uge 9</td>
<td width="5%">uge 11</td>
<td width="5%">uge 12</td>
<td width="5%">uge 13</td>
<td width="5%">uge 14</td>
<td width="5%">uge 15</td>
<td width="5%">uge 17</td>
<td width="5%">uge 18</td>
<td width="5%">uge 19</td>
<td width="5%">uge 21</td>
<td width="5%">uge 22</td>
<td width="5%">uge 23</td>
</tr>
<tr>
<td width="5%"><input name="U2F" size="3" value="<% =struge_2f %>"></td>
<td width="5%"><input name="U3F" size="3" value="<% =struge_3f %>"></td>
<td width="5%"><input name="U4F" size="3" value="<% =struge_4f %>"></td>
<td width="5%"><input name="U5F" size="3" value="<% =struge_5f %>"></td>
<td width="5%"><input name="U6F" size="3" value="<% =struge_6f %>"></td>
<td width="5%"><input name="U7F" size="3" value="<% =struge_7f %>"></td>
<td width="5%"><input name="U8F" size="3" value="<% =struge_8f %>"></td>
<td width="5%"><input name="U9F" size="3" value="<% =struge_9f %>"></td>
<td width="5%"><input name="U11F" size="3" value="<% =struge_11f %>"></td>
<td width="5%"><input name="U12F" size="3" value="<% =struge_12f %>"></td>
<td width="5%"><input name="U13F" size="3" value="<% =struge_13f %>"></td>
<td width="5%"><input name="U14F" size="3" value="<% =struge_14f %>"></td>
<td width="5%"><input name="U15F" size="3" value="<% =struge_15f %>"></td>
<td width="5%"><input name="U17F" size="3" value="<% =struge_17f %>"></td>
<td width="5%"><input name="U18F" size="3" value="<% =struge_18f %>"></td>
<td width="5%"><input name="U19F" size="3" value="<% =struge_19f %>"></td>
<td width="5%"><input name="U21F" size="3" value="<% =struge_21f %>"></td>
<td width="5%"><input name="U22F" size="3" value="<% =struge_22f %>"></td>
<td width="5%"><input name="U23F" size="3" value="<% =struge_23f %>"></td>
</tr>
<tr><td colspan="5"><b>Sidst</b> <%= SignDate %></td>
<input type=hidden name=CURINDEX value="<%= strIndex %>">
<input type=hidden name=SIGNDATE value="<%= now()%>">
<input type=hidden name=CONTACTID value="<%= indexValue %>"></td></tr>
<tr><td colspan=2 align=left><input type=image SRC=images/opdater.png ALT="opdater indholdet" value=Opdater name=Modify></td></tr>
</table>
<%
End Sub
' ++++++++++++++++ AllRecords +++++++++++++++++++++
Sub AllRecords()
Dim i
For i = 0 to intTotalRecords - 1
If i = CInt(strIndex) Then
Response.write("<b>" & i + 1 & "</b>")
Else
Response.write("<a href=""1adaf.asp?findindex="& i &""">" & i + 1 & "</a>")
End If
If i <> intTotalRecords - 1 Then
response.write(" | " & vbCrLf)
End If
Next
End Sub
'--------------------------------------------------------------
'--- Body
'--------------------------------------------------------------
%>
<html><head><title>Dansk 1htxa</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head><body>
<h2 align=center>Dansk 1htxa</h2>
<center>
<% Call AllRecords() %>
<table>
<tr><td align=center>
<b>Post nr. <%= strIndex + 1%> af <%= intTotalRecords %> i alt</b>
</td></tr><td colspan=2>
<%
Call fillForm(indexValue)
%>
</td></tr></table>
<a href="1adaf.asp?findindex=<%= strIndex - 1 %>">Tilbage</a> |
<a href="1adaf.asp?findindex=<%= strIndex + 1 %>">Næste</a>
</center>
<BR>
</body>
</html>
