Sortering af input

<%
  call opendb

    if Request.Form("region") <> "" AND Request.Form("region") <> "alle" then
      Region = Request.Form("region")
      strRegion = "region = " & Region
    else
      strRegion = "1=1"
    end if

    if Request.Form("sex") <> "" AND Request.Form("region") <> "alle" then
      Sex = Request.Form("sex")
      strSex = " AND sex = " & Sex
    else
      strSex = ""
    end if

    region = Request.Form("region")
    sex = Request.Form("sex")
    post_nr = Request.Form("postnr")

    call opentbl("SELECT * FROM login WHERE " & strRegion & strSex, rs)

    if not rs.eof then
      do while not rs.eof           
        strEmail  = rs("email")       
        response.write "" & strEmail & " - Afsendt korrekt<br>"
      rs.MoveNext
      Loop
    else
      Response.write("Der ingen brugere i den valgte kategori")
    end if
               
    response.write "<br><br><b>Alle beskeder blev afsendt korrekt.</b>"
   
    call closetbl(rs)
%>

Det fungere umiddelbart, men hvis jeg kun vælger sex laver den fejl.

Hvad med de sidste variabler (usertype & postnr)?

Fejlen ligger nok i at den så udskriver: " AND sex = " & Sex uden at der noget foran.

Er der ikke nogen der kan hjælpe

Det fungere ikke der hvor der er tale om tabeller med andre input end tal. Hvad skal der stå:

De her fungere ikke:
  - Sex
  - Status
  - Post_nr

<%
          call opendb

            if Request.Form("region") <> "" AND Request.Form("region") <> "alle" then
                  Region = Request.Form("region")
                      strRegion = " AND region = " & Region
                        else
                      strRegion = ""
                        end if

            if Request.Form("sex") <> "" AND Request.Form("sex") <> "alle" then
                  Sex = Request.Form("sex")
                      strSex = " AND sex = " & Sex
                        else
                      strSex = ""
                        end if
                       
            if Request.Form("post_nr") <> "" AND Request.Form("post_nr") <> "alle" then
                  post_nr = Request.Form("post_nr")
                      strpost_nr = " AND post_nr = " & post_nr
                        else
                      post_nr = ""
                        end if
                       
            if Request.Form("usertype") <> "" AND Request.Form("usertype") <> "alle" then
                  usertype = Request.Form("usertype")
                      strusertype = " AND usertype = " & usertype
                        else
                      usertype = ""
                        end if
                       
            if Request.Form("status") <> "" AND Request.Form("status") <> "alle" then
                  statu = Request.Form("status")
                      strstatu = " AND statu = " & statu
                        else
                      statu = ""
                        end if

            call opentbl("SELECT * FROM login WHERE Email <> '""'" & strRegion & strSex & strPost_nr & strUsertype & strstatu, rs)

                if not rs.eof then
                      do while not rs.eof         
                        strEmail  = rs("email")     
                            response.write "" & strEmail & " - Afsendt korrekt<br>"
                      rs.MoveNext
                          Loop
                              response.write ""&strSex&"<br>"
                            response.write ""&strregion&"" 
                            response.write "<br><br><b>Alle beskeder blev afsendt korrekt.</b>"
                        else
                            Response.write("Der ingen brugere i den valgte kategori")
                          end if
  call closetbl(rs)

%>

Lukker