<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="../Conn/s.asp" --> <% Dim rs_pass__MMColParam rs_pass__MMColParam = """" If (Request("MM_EmptyValue") <> "") Then rs_pass__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_pass Dim rs_pass_numRows
Set rs_pass = Server.CreateObject("ADODB.Recordset") rs_pass.ActiveConnection = MM_s_STRING rs_pass.Source = "SELECT * FROM medlemmer WHERE password = '" + Replace(rs_pass__MMColParam, "'", "''") + "'" rs_pass.CursorType = 0 rs_pass.CursorLocation = 2 rs_pass.LockType = 1 rs_pass.Open()
rs_pass_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index
Repeat1__numRows = -1 Repeat1__index = 0 rs_pass_numRows = rs_pass_numRows + Repeat1__numRows %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head>
<body> <p>følgende medlemmer har ikke defineret password:</p>
<% While ((Repeat1__numRows <> 0) AND (NOT rs_pass.EOF)) %> <%=(rs_pass.Fields.Item("Firma").Value)%> <%=(rs_pass.Fields.Item("Kontakt").Value)%> <%=(rs_pass.Fields.Item("email").Value)%> <%=(rs_pass.Fields.Item("telefon").Value)%><br> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_pass.MoveNext() Wend %> </body> </html> <% rs_pass.Close() Set rs_pass = Nothing %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.