ARTIKLAR | FORUM | EVENTS | ">MIN SIDA | OM NP Meny "><%If minsida="Yes" Then%>Din profil<%Else%><%=RecSet("userLogin")%>´s profil<%End If%> "><%If minsida="Yes" Then%>Din gästbok<%Else%><%=RecSet("userLogin")%>´s gästbok<%End If%> "><%If minsida="Yes" Then%>Din dagbok<%Else%><%=RecSet("userLogin")%>´s dagbok<%End If%> &show=friends"><%If minsida="Yes" Then%>Dina kontakter<%Else%><%=RecSet("userLogin")%>´s kontakter<%End If%> "><%If minsida="Yes" Then%>Dina besökare<%Else%><%=RecSet("userLogin")%>´s besökare<%End If%>   ">Sök medlemmar ">Dina meddelanden ">Dina inställningar Logga ut " name="frmSok" method="post"> Sökning Namn: Användarnamn: Epost-adress: Land: Alla Sverige Frankrike England USA Kina Ort: Ditt huvudspråk: Alla Svenska Franska Engelska Kinesiska   Sortera efter: Användarnamn Ort Land Online Avancerad sökning <%If Request.QueryString("action") = "result" Then%> Medlemsresultat <% If Request.QueryString("from") = "" Then searchStr = "Select * From user Where userId <> ''" If Request.Form("userName") <> "" Then searchStr = searchStr & " And userName Like '%" & Request.Form("userName") & "%'" End If If Request.Form("userLogin") <> "" Then searchStr = searchStr & " And userLogin Like '%" & Request.Form("userLogin") & "%'" End If If Request.Form("userEmail") <> "" Then searchStr = searchStr & " And userEmail Like '%" & Request.Form("userEmail") & "%'" End If If Request.Form("userPostort") <> "" Then searchStr = searchStr & " And userPostort Like '%" & Request.Form("userPostort") & "%'" End If If Request.Form("userCountry") <> "" Then searchStr = searchStr & " And userCountry Like '%" & Request.Form("userCountry") & "%'" End If If Request.Form("userLanguage") <> "" Then searchStr = searchStr & " And userLanguage Like '%" & Request.Form("userLanguage") & "%'" End If If Request.Form("sortorder") = "userOnline" Then order = "desc" Else order = "asc" End If searchStr = searchStr & " Order By " & Request.Form("sortorder") & " " & order Set users = Com.execute(searchStr) Response.Write(searchStr) ElseIf Request.QueryString("from") = "advanced" Then SQL = "SELECT Distinct user.userLogin, user.userOnline, user.userId, user.userPostort, user.userCountry, user.userLatestlogin, user.userCountLogin FROM user INNER JOIN info ON user.userId = info.Userid Where user.userId <> ''" If Request.QueryString("userName") <> "" Then SQL = SQL & " And user.userName Like '%" & Request.QueryString("userName") & "%'" End If If Request.QueryString("userLogin") <> "" Then SQL = SQL & " And user.userLogin Like '%" & Request.QueryString("userLogin") & "%'" End If If Request.QueryString("userEmail") <> "" Then SQL = SQL & " And user.userEmail Like '%" & Request.QueryString("userEmail") & "%'" End If If Request.QueryString("userPostort") <> "" Then SQL = SQL & " And user.userPostort Like '%" & Request.QueryString("userPostort") & "%'" End If If Request.QueryString("userCountry") <> "" Then SQL = SQL & " And user.userCountry Like '%" & Request.QueryString("userCountry") & "%'" End If If Request.QueryString("userLanguage") <> "" Then SQL = SQL & " And user.userLanguage Like '%" & Request.QueryString("userLanguage") & "%'" End If If Request.QueryString("Invfas1") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Invfas1") & "%'" End If If Request.QueryString("Invbehov1") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Invbehov1") & "%'" End If If Request.QueryString("Innovation1") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Innovation1") & "%'" End If If Request.QueryString("Bransch1") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Bransch1") & "%'" End If If Request.QueryString("Geografi1") <> "" Then SQL = SQL & " Or info.Namn Like '%" & Request.QueryString("Geografi1") & "%'" End If If Request.QueryString("Sprak1") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Sprak1") & "%'" End If If Request.QueryString("Invfas2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Invfas2") & "%'" End If If Request.QueryString("Invbehov2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Invbehov2") & "%'" End If If Request.QueryString("Innovation2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Innovation2") & "%'" End If If Request.QueryString("Bransch2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Bransch2") & "%'" End If If Request.QueryString("Geografi2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Geografi2") & "%'" End If If Request.QueryString("Sprak2") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Sprak2") & "%'" End If If Request.QueryString("Bransch3") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Bransch3") & "%'" End If If Request.QueryString("Geografi3") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Geografi3") & "%'" End If If Request.QueryString("Befattning3") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Befattning3") & "%'" End If If Request.QueryString("Sprak3") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Sprak3") & "%'" End If If Request.QueryString("Bransch4") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Bransch4") & "%'" End If If Request.QueryString("Geografi4") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Geografi4") & "%'" End If If Request.QueryString("Befattning4") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Befattning4") & "%'" End If If Request.QueryString("Sprak4") <> "" Then SQL = SQL & " And info.Namn Like '%" & Request.QueryString("Sprak4") & "%'" End If SQL = SQL & " Order By user.userId" Set users = Com.execute(SQL) Response.Write(SQL) End If If users.EOF Then%> <%Else Do Until users.EOF If users("userOnline") = "No" Then online = "Nej" Else online = "Ja" End If%> <%users.MoveNext Loop End If%> Användarnamn Ort Land Online Senaste inloggning Inloggningar Det finns inga medlemmar "><%=users("userLogin")%> <%=users("userPostort")%> <%=users("userCountry")%> <%=online%> <%=formatDateTime(users("userLatestlogin"),2)%> (<%=formatDateTime(users("userLatestlogin"),4)%>) <%=users("userCountLogin")%> <%users.Close : Set users = nothing End If%>       <%Com.Close : Set Com = nothing%>