Hvordan gør jeg sådan at det er dem der er unblocket der vises

Nu ved jeg ikke lige hele hvad der menes med Region i Dreamweaver, men det lyder da blot som om din SQL sætning skal fikses lidt:

SELECT * FROM tabel WHERE felt='Unblocked'

Prøv at skrive din SQL sætning her

Eller SELECT * FROM tabel WHERE felt=0

ved ikke hvordan din database er bygget op men det kunne tænkes at det var on/off etc

altså en Region er et markered område af en site hvor der indholder nogle recordset...

altså her er min kildekode på den side hvor jeg skal have vist det:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/danling.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_danling_STRING
  MM_editTable = "danmail"
  MM_editRedirectUrl = "danmail_skrivmail2.asp"
  MM_fieldsStr  = "select|value|textfield2|value|hiddenField|value"
  MM_columnsStr = "brugernavn|',none,''|besked|',none,''|afsender|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Session("MM_username") <> "") then Recordset1__MMColParam = Session("MM_username")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_danling_STRING
Recordset1.Source = "SELECT * FROM brugere WHERE brugernavn = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
if (Session("MM_username") <> "") then Recordset2__MMColParam = Session("MM_username")
%>
<%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_danling_STRING
Recordset2.Source = "SELECT * FROM mailliste WHERE indehaver = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="files/css/i3.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<% If Recordset2.EOF And Recordset2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tekst_center">
  <tr>
    <td><b>Du skal have nogle p&aring; din mailliste for at kunne sende en mail...</b></td>
  </tr>
</table>
<% End If ' end Recordset2.EOF And Recordset2.BOF %>
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
      <form name="form1" method="POST" action="<%=MM_editAction%>">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" class="tekst_center">
          <tr>
            <td>Modtager:<br>
              <select name="select" class="box">
                <%
While (NOT Recordset2.EOF)
%>
                <option value="<%=(Recordset2.Fields.Item("brugernavn").Value)%>" ><%=(Recordset2.Fields.Item("brugernavn").Value)%></option>
                <%
  Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
  Recordset2.MoveFirst
Else
  Recordset2.Requery
End If
%>
              </select>
              <br>
              Besked:<br>
              <textarea name="textfield2" class="tekstbox"></textarea>
              <br>
              <input type="submit" name="Submit" value="Afsend" class="knap">
              <input type="hidden" name="hiddenField" value="<%=(Recordset1.Fields.Item("brugernavn").Value)%>">
            </td>
          </tr>
        </table>
        <input type="hidden" name="MM_insert" value="true">
      </form>
    </td>
  </tr>
</table>
<% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
</body>
</html>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
%>

her er et eksempel på - • Show Region If Recordset Is Empty:

<% If Recordset2.EOF And Recordset2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tekst_center">
  <tr>
    <td><b>Du skal have nogle p&aring; din mailliste for at kunne sende en mail...</b></td>
  </tr>
</table>
<% End If ' end Recordset2.EOF And Recordset2.BOF %>
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>

Er det i den tabel, der hedder brugere, eller den der hedder mailliste at folk er "unblocked"?

det er i maillisten

den skal vise dem som er unblocked i en form liste og den som er blocked skal den selvfølgelig ikke vise...

Ok, ved du hvad feltet i denne tabel hedder, hvor det kan være 'unblocked', og hvad er de mulige øhh.. muligheder (datatype) :)

okay du vil have felt navnet hvor blocket og unblocket står i hvad det hedder: det hedder status

og det er af datatype: tekst

Så skift denne linie ud:

Recordset2.Source = "SELECT * FROM mailliste WHERE indehaver = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"

Med:

Recordset2.Source = "SELECT * FROM mailliste WHERE indehaver = '" + Replace(Recordset2__MMColParam, "'", "''") + "' AND status='unblocked'"

okay her er et billede af mit program hvor jeg har åbnet det i Advanced View altså i SQL viw:

hvor skal det indsættes...

http://62.66.193.30/exp1.gif

eller jeg jeg mulighed for at gøre det her:

http://62.66.193.30/exp2.gif

dette er bare et eksempel på vis jeg nu kun vil have vist alle drenge

hvad skal jeg så vælge af dem fra listen for at få det?... eller skal man gære det på en anden måde...

Gør det i koden! Du har kopieret koden herind, du skal rette i den!

Recordset2.Source = "SELECT * FROM mailliste WHERE indehaver = '" + Replace(Recordset2__MMColParam, "'", "''") + "' AND status='unblocked'"

For at få drenge:

Recordset2.Source = "SELECT * FROM mailliste WHERE indehaver = '" + Replace(Recordset2__MMColParam, "'", "''") + "' AND status='unblocked' AND kon='dreng'"

skal det være i en linie

...og lige en notits: Dreamweaver os. kan godt skrive noget html/asp/php kode for brugeren, men det er noget sovsekode. Hvis du vil lave websites, der kan mere end at vise en gif fil, bliver du nødt til at begynde at sætte dig ind i hvilken kode, der gør hvad (i hvilket sprog) - og hvad du ønsker at opnå, og hvordan man opnår det! :) Dette er blot et venligt råd.

...Det vil gøre dig klogere/mere kompetent og du vil hurtigt finde programmering af disse ting meget underholdende og inspirerende. Det var jo derfor du startede på webdesign/programmering. Lad ikke en WYSIWYG editor forblænde dig. Start med at kode selv... For der er det rent faktisk sandt at "what you see is what you get"! :)

okay tak

lige et spørgsmål mere kan de lade sig gøre at vis en bestemt tekst i et felt er skrevet så vises en knap, men står der en anden tekst så vises en anden knap..??

jeg har denne kode kan den laves om til det

<%If Recordset4.Fields.Item("kon").Value = "" Then Response.Redirect("http://62.66.193.30/redigerprofil.asp")%>

og så vil jeg forresten godt have et svar så du kan få dine point...

Ja, alt kan lade sig gøre, hvis man koder lidt selv...

Du kan f.eks skrive (i forlængelse af din kode der):

If Recordset4.Fields.Item("kon").Value = "" Then response.write("<input type=""button"" value=""Tilbage"" onClick=""history.back();"">") else response.write("<input type=""button"" value=""Send"" onClick=""document.form1.submit();"">"

Det kommer lidt an på hvad du skal bruge det til, men bare rolig. Der er masser af hjælp at hente her på eksperten i ASP, Access, SQL, JavaScript kategorierne :)

End If ;)

vis jeg nu bare skal have den til at gå til en bestemt side istedet for at submitte en form hvad skal jeg så skrive i onClick ?

End If

forstår ikke helt skal det foran Recordset4.Fields.Item bla bla bla

undskyld at jeg spørger dumt, men det er man nød til for at få svar...

Hvis en knap skal lede til en eller anden side skriver man f.eks:

<input type="button" value="Videre" onClick="window.location.href='http://www.legende.dk';">

Det er javaScript / Html. Ikke rigtigt relateret med dit ASP / SQL spørgsmål :) Men fint nok

okay

kan du fortælle mig om den her kode ser rigtig ud:

det har noget med spørgsmålet at gøre:

<%If Recordset1.Fields.Item("status").Value = "Blocked" Then response.write("<input type="button" value="Unblock" onClick="MM_goToURL('self','danmail_liste_block2.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "maillisteid=" & Recordset1.Fields.Item("maillisteid").Value %>');return document.MM_returnValue">") else response.write("<input type="button" value="Block" onClick="MM_goToURL('self','danmail_liste_block1.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "maillisteid=" & Recordset1.Fields.Item("maillisteid").Value %>');return document.MM_returnValue">")%>

Tja tjo, det er måske brugbar kode, men det er ikke skrevet optimalt (for at sige det mildt). Bemærk at inde i et asp script (der er startet med <%) skrives en variabel med <%= .. Det er forfærdeligt! så'n... Du får ikke rigtig god kode ud af disse editorer som Dreamweaver, og derfor er den s....svær at rette i. Du skal skrive koden selv. -Og det tror jeg hurtigt du kan lære. Du har set det meste før i den genererede kode fra DW