CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

bpedersen Novice

11. oktober 2005 - 15:21 Der er 10 kommentarer og
1 løsning

Link i SQL virker ikke

Hvordan får jeg dette link til at virke? Det benyttes via JMAIL.

str = str & "Du skal aktivere din bruger ved at gå ind på dette <a href="http://www.aagaardpedersen.dk/godkend.asp">link</a>"

Jeg har prøvet at sætte 1,2,og 3 x " udenom URL. Er der noget med at man skal replace? Hvis ja, hvordan, og hvorfor :-)

pft.

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:21 #1

Det der sker er at

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:23 #2

selve teksten <a href=htt.......>link</a> kommer til at stå, istedet for link.

Synes godt om

bigilo Nybegynder

11. oktober 2005 - 15:23 #3

prøv at sætte ' i stedet for

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:27 #4

har ændret til <a href='http://www.aagaardpedersen.dk/godkend.asp'>link</a> men det giver samme resultat.

Synes godt om

fennec Nybegynder

11. oktober 2005 - 15:28 #5

eller escape " ved at bruge to
str = str & "Du skal aktivere din bruger ved at gå ind på dette <a href=""http://www.aagaardpedersen.dk/godkend.asp"">link</a>"

ASP ved jo ikke hvor strengen slutter henne:
str = "en tekst med " tegnet"

Derfor escaper men " ved at bruge to:
str = "en tekst med "" tegnet"

ps. Vis evt mere kode da problemet kan komme andet sted fra.

Synes godt om

bigilo Nybegynder

11. oktober 2005 - 15:29 #6

så er det jo nok fordi du ikke sender mailen i HTML format...
Det er noget med at du skal sætte det som en variable et eller andet sted....

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:29 #7

Set Conn = server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/bvnyhed.mdb")

brugernavn = replace(Request.Form("navn"),"'","")
email = replace(Request.Form("email"),"'","")

'tjek om email findes
sql = "select * from nyhedsmail where email = '" & email & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
'bruges findes ikke.
password = lavPassword(10)
sql = "insert into nyhedsmail (aktiv, email, brugernavn, userpass) values (0, '" & email & "','" & brugernavn & "','" & password & "')"
Conn.Execute(sql)

set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "web@aagaardpedersen.dk"
msg.FromName = "Bisgaard Vin"

msg.AddRecipient email

msg.Subject = "Tak for tilmeldingen"

str = "Hej " & brugernavn & vbCrLf & vbCrLf
str = str & "Du skal aktivere din bruger ved at gå ind på dette <a href='http://www.aagaardpedersen.dk/godkend.asp'>link</a>"

str = str & vbcrLf & vbCrLf
str = str & "Dit password er : " & password
str = str & vbCrstr & vbCrLf & vbCrLf
str = str & "Hilsen Bisgaard Vin"

msg.Body = str

' Her skal du rette og skrive den mail server du kan sende mail igennem fra din web side.
if not msg.Send("smtp.cliche.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if

Conn.Close
Set Conn = Nothing
Set msg = Nothing
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?tak")
else
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?findes")
end if
Response.Redirect(Request.ServerVariables("SCRIPT_NAME"))
end if
%>
<html>
<head><title>Tilmeld nyheds brev</title></head>
<body>

<% if Request.QueryString = "tak" then %>
<center> Tak for din tilmelding du vil modtage en mail med dit password du skal bruge for at aktivere din bruger.</center>
<% elseif Request.QueryString = "findes" then %>
<center> Du er allerede tilmeldt med den E-mailadresse. Gå tilbage til tilmeldingssiden og få tilsendt et nyt password, hvis du bare har glemt det.</center>
<% else %>
<script type="text/javascript">

function validering(f){
if(f.navn.value==''){
alert('Du skal udfylde feltet med dit navn!');
f.navn.focus();
return false;
}

if(!f.email.value.match(/^\w.*@\w.*\.\w{2,}$/)){
alert('Du skal udfylde feltet med din e-mail adresse!\n(og det skal være en gyldig adresse)');
f.email0,,
0000000000000000000
000
3
+,.focus();
return false;
}

return true;
}
</script>

Synes godt om

bigilo Nybegynder

11. oktober 2005 - 15:32 #8

prøv med msg.htmlbody i stedet for msg.body

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:33 #9

tester lige!

Synes godt om

bpedersen Novice

11. oktober 2005 - 15:38 #10

bigilo> det virkede, tak for hjælpen.
Smider du lige et svar?

Synes godt om

bigilo Nybegynder

11. oktober 2005 - 15:39 #11

Jamen det gør jeg så....

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

Statens IT

Systemadministratorer til Endpoint Management i Statens It

Itm8

Senior Sales Development Representative (SDR) til nyt Outbound Team (B2B)

Udviklings- og Forenklingsstyrelsen

Gi' din karriere et løft som projektstyringsekspert i Danmarks største offentlige it-organisation

Banedanmark

Junior IT-projektleder

Education Esbjerg

Systemadministrator – form IT-fundamentet for fremtidens uddannelsesby

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 18:09	Billedoverførsel Af Laurids i iOS, iPhone & iPad
I dag 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27	renteberegning Af Pil i Excel