<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim y if request.Querystring("y") ="" then y = "IDnummer ASC" else y = request.Querystring("y") end if Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../db/MS_SQL-test.mdb") Conn.Open DSN 'Check formular data og indsæt SQL søgekriterier Dim strForm,strError,SeachString,SeachStringOpdate strError = "" SeachStringOpdate = " WHERE 1=1" SeachString = " WHERE 1=1" strForm = "'MS SQL søgning side 1.'" IF request.form("IDnummer") <> "" THEN IF NOT isNumeric(request.form("IDnummer")) THEN strError = strError & "
  • Indtast En numerisk værdi i feltet:
    tblRapport IDnummer og tblOpdatering RapportID =

    • " ELSE SeachString = SeachString & " AND IDnummer = "& request.form("IDnummer") & "" SeachStringOpdate = SeachStringOpdate & " AND RapportID = "& request.form("IDnummer") & "" END IF END IF IF request.form("notIDnummer") <> "" THEN IF NOT isNumeric(request.form("notIDnummer")) THEN strError = strError & "
  • Indtast En numerisk værdi i feltet:
    tblRapport IDnummer og tblOpdatering RapportID <>

    • " ELSE SeachString = SeachString & " AND IDnummer <> "& request.form("notIDnummer") & "" SeachStringOpdate = SeachStringOpdate & " AND RapportID <> "& request.form("notIDnummer") & "" END IF END IF IF request.form("RapportType") <> "" THEN SeachString = SeachString & " AND RapportType LIKE '%"& request.form("RapportType") & "%'" END IF IF request.form("RapportTekst") <> "" THEN SeachString = SeachString & " AND RapportTekst LIKE '%"& request.form("RapportTekst") & "%'" END IF IF request.form("OprettetAf") <> "" THEN SeachString = SeachString & " AND OprettetAf = '"& request.form("OprettetAf") & "'" END IF IF request.form("OpdateringTekst") <> "" THEN SeachStringOpdate = SeachStringOpdate & " AND OpdateringTekst LIKE '%"& request.form("OpdateringTekst") & "%'" END IF IF (strError) <> "" Then response.redirect ("formError.asp?fError=" & strError & "&fName=" & strForm) END IF IF SeachString = " WHERE 1=1" THEN SeachString = "" END IF IF SeachStringOpdate = " WHERE 1=1" THEN SeachStringOpdate = "" END IF dim sideId,SQLrapport,SQLopdatering sideId = "MS_SQL-test-1" SQLstmt = "SELECT IDnummer,RapportType,RapportTekst,OprettetAf,OprettetDato FROM tblRapport" & SeachString & " ORDER BY IDnummer ASC" SQLrapport = "<%" & SQLstmt & "%>" Set rsRapport = Conn.Execute(SQLstmt) SQLstmt = "SELECT IDnummer,RapportID,OpdateringTekst,OpdateringDato FROM tblOpdatering" & SeachStringOpdate & " ORDER BY IDnummer ASC" SQLopdatering = "<%" & SQLstmt & "%>" Set rsOpdatering = Conn.Execute(SQLstmt) %> Hennings MS SQL test side - søgning 1!

    <- Retur til MS SQL SELECT SQL & ASP kode som tekst Videre til MS SQL søgning 2 ->

    Hennings MS SQL test database, søgning 1!

    På denne side afprøves MS-SQL søgefunktioner i 2 tabeller.

    Indholdet af tabellerne vises afhængig af søgeordene i formularen under tabellerne:

    <%=SQLrapport%>

    tblRapport'
    <% DO WHILE NOT rsRapport.EOF%> <%rsRapport.MoveNext LOOP %>
    IDnummer RapportType RapportTekst OprettetAf OprettetDato
    <%=rsRapport("IDnummer")%> <%=rsRapport("RapportType")%> <%=rsRapport("RapportTekst")%> <%=rsRapport("OprettetAf")%> <%=rsRapport("OprettetDato")%>

    <%=SQLopdatering%>

    tblOpdatering:
    <% DO WHILE NOT rsOpdatering.EOF%> <%rsOpdatering.MoveNext LOOP rsOpdatering.Close set rsOpdatering = Nothing %>
    IDnummer RapportID OpdateringTekst OpdateringDato
    <%=rsOpdatering("IDnummer")%> <%=rsOpdatering("RapportID")%> <%=rsOpdatering("OpdateringTekst")%> <%=rsOpdatering("OpdateringDato")%>

    Indtast et eller flere søgekriterier
    tblRapport IDnummer og
    tblOpdatering RapportID     		=
    tblRapport IDnummer og
    tblOpdatering RapportID     		<>
    RapportType indeholder: (LIKE)
    RapportTekst indeholder: (LIKE)
    Vælg OprettetAf: =
    OpdateringTekst indeholder: (LIKE)
    <- Retur til MS SQL SELECT SQL & ASP kode som tekst Videre til MS SQL søgning 2 ->


    <% rsRapport.Close set rsRapport = Nothing Conn.Close Set Conn = Nothing%>