Hente data vhj af søgefunktion
Jeg har lavet en søg formular og vil hente records fra en access database. Det er titler der hentes i dropdownboksen men når man trykker på "søg" går den tilbage til den forrige titel. Der kommer ingen nye records frem.kode for formular og den procedure der henter records.
dim fnavn
dim enavn
dim email
dim titel
dim spoergsmol
dim strConn
dim rs
dim objRec
find_sp
sub find_sp
set strConn = Server.CreateObject("ADODB.connection")
set rs = Server.CreateObject("ADODB.recordset")
strConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
strSQL = "SELECT DISTINCT titel from spoergsmol ORDER BY titel"
rs.open strSQL, strConn, AdOpenForwardOnly
%>
<form action="adm_forside.asp?action=henter_sp" method="post" name="sporgs">
<select name="titel" style="width: 150px">
<%
while not rs.EOF
%>
<option><% =rs.fields("titel") %></option>
<%
rs.movenext
wend
rs.close
set rs = nothing
%>
</select><input type="submit" value=" søg " name="soeg"></form>
<%
end sub
%>
<br><br>
<%
dim antal
antal =0
henter_sp
function henter_sp
set objConn = Server.CreateObject("ADODB.connection")
set objRec = Server.CreateObject("ADODB.recordset")
objConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
strSQL = "SELECT * from spoergsmol ORDER BY id"
objRec.open strSQL, objConn, AdOpenForwardOnly
while not objRec.EOF
if (antal = 0) then
%><table class="table3" scrolling="auto"><tr><td>Navn: <% Response.Write objRec("fornavn") %>
<% Response.Write objRec("efternavn")%></td></tr>
<tr><td><hr size="2">mail adresse: <% Response.Write objRec("email") %></td></tr>
<tr><td><hr size="2">titel: <% Response.Write objRec("titel") %></td></tr>
<tr><td><hr size="2">spørgsmål:<br> <% Response.Write objRec("spoergsmol")%></td></tr>
</table>
<%
antal = antal+1
end if
objRec.movenext
wend
objRec.close
set objRec = nothing
end function
%>
