10.4.4ASP-skript
Här följer de ASP-skript som vi använt för vår testimplementation:
visalista.asp
----------------------------------------------------------------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\SERFIN.mdb"
Query1 = "SELECT * FROM tips"
if Request.form("area")<>"" then
Query1 = Query1 & " AND WHERE " & Request.form("area") & " LIKE '%" & Request.form("sokord") & "%'"
else
Query1 = Query1 & " WHERE titel LIKE '%" & Request.form("sokord") & "%'"
Query1 = Query1 & " OR sokord LIKE '%" & Request.form("sokord") & "%'"
Query1 = Query1 & " OR bakgrund LIKE '%" & Request.form("sokord") & "%'"
Query1 = Query1 & " OR tips LIKE '%" & Request.form("sokord") & "%'"
Query1 = Query1 & " OR redaktor LIKE '%" & Request.form("sokord") & "%'"
end if
Set Result = Conn.Execute(Query1)
%>
SERFIN - ASPtest
SERFIN
<%
Do While Not Result.EOF
%>
Tips nr |
<%=Result("nr")%> |
"><%=Result("titel")%> |
<%
Result.Movenext
loop
%>
|
<%=Request.form("nr")%>
SERFIN
<% Request.form("nr") %>
<%
if NOT Result.EOF then
%>
Tips nr: <%=Result("nr")%>
<%=Result("titel")%>
Bakgrund
<%=Result("bakgrund")%>
Tips/Åtgärd
<%=Result("tips")%>
Tipsredaktör: <%=Result("redaktor")%>
Referens: <%=Result("referens")%>
Kod: <%=Result("kod")%>
Sökord: <%=Result("sokord")%>
Datum: <%=Result("datum")%>
Reviderat: <%=Result("reviderat")%>
<%
End if
%>
|
|