Check om newsletter email allerede er oprettet

Du kan lave en SELECT efter du har gemt den i DB'en og så se om den eksisterer.

hvordan gør jeg det ?

Hvordan du implementere det eller laver SQL-strengen ?

both :)

hvorfor har de ikke lavet en form validation der giver en mulighed for at sende brugeren videre til en anden side hvis værdien er i databasen :)

Hvad er det lavet i (dreamweaver) ? Synes nemlig det ser rodet ud :-/

Hvordan ser din <!--#include file="Connections/capitol.asp" --> ud ? Dette er for at se hvordan den connecter.

hehe - ja - dreamweaver

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_capitol_STRING
MM_capitol_STRING = "Data Source=d:\home\capitolshopdk\db\capitolshop.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
%>

Her er et lille løsningsforslag, som jeg håber virker, for jeg kan ikke rigtig se mig ud af det uden at skulle skrive det hele om :-D

Du skal skifte følgende ud :

  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


Med :

    'Open connection
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open MM_capitol_STRING

    'Slut Open Connection
        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM " & MM_editTable & " WHERE email='" & Request.Form("email") & "'"
        Set Rs = Conn.Execute(strSQL)
        If (NOT Rs.Bof) AND (NOT Rs.Eof) then ' Den findes IKKE
            Conn.Close
      Response.Redirect("Findes.asp")
        Else
            Conn.Close
          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

' Den findes IKKE
jeg er lidt usikker på hvad dette mener :)
skal der ligges endnu en funktion ind her som tager brugeren til en fejlmeddelelse ?

den finder filen ok (findes.asp omdøbt til newsletter_ok.asp)
men den oprettes vist ikke i databasen

... - u there ? :)

Jeps, jeg har ikke lige haft tid men er tilbage igen :-)

Ups,
'Den findes IKKE
skulle have været
'Den findes!

Laver den en fejl?
Har du kigget i DB'en om den er der ?

okay - det der ligger oppe på linket nu

Jeg kunne vel ikke se hele din 1index.asp ?
Hvis du helst ikke vil vise den fuldt ud her kan du da lige maile den til mig på ulrik@saxonet.dk

damn - den glemte min indtastning...
http://www.capitolshop.dk/1index.asp - det der ligger på det link er det du har skrevet.
her kan du se om recorden bliver oprettet: http://www.capitolshop.dk/newsletter_info.asp
.
hvor i koden står der hvad den skal gøre hvis recorden findes i forvejen ?

Her står "Hvis den findes" :

        Set Rs = Conn.Execute(strSQL)
        If (NOT Rs.Bof) AND (NOT Rs.Eof) then
            ' Hvis den findes så luk forbindelsen gå henvis til filen "Findes.asp"
            Conn.Close
      Response.Redirect("Findes.asp")
        Else
            'Jubii, den findes ikke
            Conn.Close
          If (Not MM_abortEdit) Then
            ' execute the insert
            Set MM_editCmd = Server.CreateObject("ADODB.Command")

Jeg kan ikke oprette mig igen :-) men den siger at den lige har oprettet mig ???

hvad gør den egentlig hvis den findes...
det ser ud som om den bare viser samme bekræftelse, bare med den sidst oprettede email

Hvis den findes, skulle den gerne vise Findes.asp

Øjeblik, skal lige skrives lidt om :-)

min findes.asp hedder: newsletter_ok.asp
.
når en email findes i databasen skal den skrive: "you are already subscribed to the newsletter"

men jeg aner ikke om man overhovedet kan få den til det

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

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

Dim Conn,Rs,strSQL

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
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")) = "newsletter") Then

  MM_editConnection = MM_capitol_STRING
  MM_editTable = "newsletter"
  MM_editRedirectUrl = "newsletter_ok.asp"
  MM_fieldsStr  = "email|value"
  MM_columnsStr = "Email|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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

Dim MM_tableValues
Dim MM_dbValues

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

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    'Open connection
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_capitol_STRING

    'Slut Open Connection
    ' Opbygning af SQL streng
    strSQL = "SELECT * FROM " & MM_editTable & " WHERE UCase(email)=UCase('" & Request.Form("email") & "')"
    Set Rs = Conn.Execute(strSQL)
        If (NOT Rs.Bof) AND (NOT Rs.Eof) then ' Den findes
            Response.Write("Du findes allerede....")
            MM_abortEdit=True
        End If
        Conn.Close
    End If
  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
%>
<html>
<head>
<title>Newsletter</title>
<meta name="Generator" content="Stone's WebWriter 4 BETA 4b">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="capitol.css" rel="stylesheet" type="text/css">
</head>

<body>
<table border="0" bgcolor="#FFFFFF">
  <tr>
    <td class="menuHead">Newsletter</td>
  </tr>
  <tr>
    <td class="menuText">Stay updated with the latest news from the Capitol.</td>
  </tr>
  <tr>
    <td><form action="<%=MM_editAction%>" method="POST" name="newsletter" id="newsletter">
        <input name="email" type="text" class="fields" id="email" value="Your email">
        <input type="submit" name="Submit" value="OK" class="buttons">
        <input type="hidden" name="MM_insert" value="newsletter">
      </form></td>
  </tr>
</table>
</body>
</html>

Hjalp det ?

super duper
prøv og check det
.
hvordan får jeg så sat teksten et andet sted :)

Vil du have det til at stå under "Newsletter" og på samme måde som "Stay updated with the latest news from the Capitol." ?

ja

Øjeblik

Hvad med :

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

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

Dim Conn,Rs,strSQL, Findes

Findes=""

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
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")) = "newsletter") Then

  MM_editConnection = MM_capitol_STRING
  MM_editTable = "newsletter"
  MM_editRedirectUrl = "newsletter_ok.asp"
  MM_fieldsStr  = "email|value"
  MM_columnsStr = "Email|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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

Dim MM_tableValues
Dim MM_dbValues

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

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    'Open connection
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_capitol_STRING

    'Slut Open Connection
    ' Opbygning af SQL streng
    strSQL = "SELECT * FROM " & MM_editTable & " WHERE UCase(email)=UCase('" & Request.Form("email") & "')"
    Set Rs = Conn.Execute(strSQL)
        If (NOT Rs.Bof) AND (NOT Rs.Eof) then ' Den findes
            Findes="Du findes allerede...."
            MM_abortEdit=True
        End If
        Conn.Close
    End If
  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
%>
<html>
<head>
<title>Newsletter</title>
<meta name="Generator" content="Stone's WebWriter 4 BETA 4b">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="capitol.css" rel="stylesheet" type="text/css">
</head>

<body>
<table border="0" bgcolor="#FFFFFF">
  <tr>
    <td class="menuHead">Newsletter</td>
  </tr>
<%
    If Findes="" then
%>
  <tr>
    <td class="menuText">Stay updated with the latest news from the Capitol.</td>
  </tr>
  <tr>
    <td><form action="<%=MM_editAction%>" method="POST" name="newsletter" id="newsletter">
        <input name="email" type="text" class="fields" id="email" value="Your email">
        <input type="submit" name="Submit" value="OK" class="buttons">
        <input type="hidden" name="MM_insert" value="newsletter">
      </form></td>
  </tr>
<%
    Else
%>
  <tr>
    <td class="menuText"><% Response.Write(Findes) %></td>
  </tr>
<%
    End If
%>
</table>
</body>
</html>

fuck det er cool - tak mand!!!
smid et svar

Det er bare iorden :-)
(øhh, hvordan kommer man af listen igen ???)

hehe - ja - det må du nok spørge om - jeg skal nok slette dig
.
det kigger jeg på senere i dag

Takker :-)

det er mig der takker :)

ved du hvorfor den ikke godtager:
            Findes="You are already subscribed to the newsletter. Please click <a href="/newsletter.asp">here</a> if you wish to input a new emailaddress."

Hvad gør den ?

Prøv :

Findes="You are already subscribed to the newsletter. Please click <a href='/newsletter.asp'>here</a> if you wish to input a new emailaddress."

u the man!!!
endnu engang tak

No prob :-)