Søger script: Nyhedsliste-tilmelding med emailbekræftelse

jeg kn give dem et unikt link som ikke kan gættes, men kan ikke asp, så skal over i php, men det duer vel ikke?

Hvis du har adgang til komponentet GUIMaker kan du bruge følgende

<%
Set MyGuid = Server.CreateObject ("GuidMakr.GUID")
UID = MyGuid.GetGUID
%>

og så i den tilmeldingsurl der bliver tilsendt brugeren så lave noget a'la

<a href="http://www.domain.dk/listetilmeld.asp?UID=<%= UID %>">Tilmeld</a>

/Mads

Det vil give dig en UID streng a'la

{E2785382-90AD-4A22-BB9E-B6B38D25985A}

(GUID = Global Unique IDentifier)

så skal du selvfølgelig når de tilmelder sig først, lagre det GUID i databasen, og derefter tjekke op på om det er aktiveret eller ej når de klikker på linket i den modtagne mail :)

/Mads

måske kan det her bruges.

jeg har modificeret min egen rugertilmelding + aktiveringsdel så det nogenlunde er som du beskriver.

------------------------
Set MyGuid = Server.CreateObject ("GuidMakr.GUID")
UID = MyGuid.GetGUID
email = Trim(request.Form("email"))
   

'## Opretter pågældende i databasen som har skrevet sin email i email feltet og klikket "tilmeld"
   
conn.execute("INSERT INTO dinDb.dinTabel ( `UID`, `email`, `Activated` )VALUES ('" & UID & "', '" & email & "', 'false' )")

'## email bekræftelses delen

set emailRs = conn.execute("SELECT * FROM dinDb.dinTabel WHERE UID = '" & UID & "'")
UID  = emailRs("UID")
email = emailRs("email")

'## Selve indholdet af mailen

besked = besked & "<font size=2 face=Tahoma>"
besked = besked &  "Tak for din tilmelding.<br /><br />"
besked = besked &  "For at bekræfte din tilmelding, skal du klikke på det nedenstående link.<br />"
besked = besked &  "Er linket brudt, så copy / paste det til din adresselinie<br /><br /><br />"
besked = besked &  "<a href=""http://www.domain.dk/listetilmeld.asp?UID= " & UID &""">Tilmeld</a>"
besked = besked & "</font><br /><br /><br />"
besked = besked & "<font size=1 face=Tahoma>-----------------------------------------------------------"
besked = besked & "<br>Denne email er sendt automatisk fra:<br />"
besked = besked & "<a href=http://www.domain.dk/ target=_new>http://www.domain.dk</a><br /><br />"
besked = besked & "<br />-----------------------------------------------------------"
besked = besked & "</font>"
   

'## Jmail opsætning - send bekræftelsesmail

set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "mail@domain.dk"
msg.FromName = "Liste Tilmelding"
msg.AddRecipient email
msg.Subject = "Listen - Bekræftelse"
msg.Body = besked



if not msg.Send("smtp.mail.dk") then
    Response.Write ""
    Response.Write msg.log
else
    Response.Write ""
End If



/Mads

og så skal du selvfølgelig tjekke op på, om det pågældende UID eksisterer , eller om det allerede er aktiveret.. altså når en bruger klikker på linket  :)

/Mads

aktiveringsdelen

-------------------

<%

UID = Request.QueryString("UID")

Set LoginCheck = conn.Execute("SELECT * From dinDb.dinTabel WHERE UID = '" & UID & "' AND Activated = 'false'")

If LoginCheck.EOF OR LoginCheck.BOF Then
    Response.Write "<p class=""Err"">Du er allerede tilmeldt !" &_
Else
    conn.execute("UPDATE dinDb.dinTabel SET Activated = 'true' WHERE UID = '" & UID & "'")
    Response.Write "<p class=""loginHead"">Du er nu tilmeldt !.</p>"
End If

%>

/Mads

Hmmm... kender overhovedet ikke GUIMaker!

Ifølge webhotellets supportsidder er denne komponent ikke installeret, men er der evt en simpel kode man kan køre for at tjekke om det er der?
Bare lige noget hvor den vil give en fejlmeddelse eller ej!

Jep

Set MyGuid = Server.CreateObject ("GuidMakr.GUID")
Response.Write MyGuid.GetGuid

Er det ikke installeret, så fejler den.

ellers kan jeg smide et andet random script til dig :)

/Mads

<%
Function cardKey(keySize)
  chars = "aAbBcCdDeEfFgGhHijJkKLmMnNopPqQrRsStTuUvVwWxXyYzZ1234567890"
  strKey = ""
  randomize
  for i = 1 to keySize
    index = Int(rnd * len(chars))+1
    strKey = strKey & Mid(chars,index,1)
  next
  cardKey = strKey
End Function

Response.Write cardKey(8) ' tallet angiver længden af strengen
%>

/Mads