Notifikationer

Markér alle som læst Log ud

jensb Nybegynder

27. marts 2002 - 16:43 Der er 4 kommentarer og
1 løsning

Skrive til Access OG sende mail

Havde først oprettet dette spørgsmål under Frontpage kategorien, men blev så rådet til at ryke det herover :

Jeg er igang med at prøve at lære at bruge databaser. Til at starte med har jeg lavet en gæstebog, med en Access database. Selve gæstebogen og database-forbindelsen har jeg lavet i Frontpage.

Dette virker helt fint...men kan man gøre sådan så når folk skrive i gæstebogen så bliver det både skrevet i databasen, og samtidig bliver der sendt en mail til mig?

(Jeg har absolut ingen kendskab til ASP...men det er understøttet på min webhotel)

Synes godt om

soes Nybegynder

27. marts 2002 - 18:35 #1

Ja det kan man sagtens.

Der er som rglen installeret en eller anden form for e-mail komponent på serveren, så det er bare at finde noget dokumentation for den.

/Søren Søndergård

Synes godt om

arriva Nybegynder

27. marts 2002 - 18:37 #2

Ja, det kan du sagtens. Du skal sørge for at din server har en mailkomponent installeret, f.eks. jmail eller aspmail. Hvis den har kan du til f.eks. aspmail bare smide følgende stykke kode ind:
-------------------------------------------------------------------------
<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "Din mailserver"
Mailer.FromName = "Dit navn
Mailer.FromAddress = "Din email"
Mailer.AddRecipient "Modtagers navn", "Modtagers email"
Mailer.Subject = "Emnet på mailen"
Mailer.BodyText = "Teksten i din mail..."
--------------------------------------------------------------------------
F.eks. efter at du har lagt dataen ind i din database...

Synes godt om

jensb Nybegynder

27. marts 2002 - 18:52 #3

hmm tak, men jeg har brug for lidt mere hjælp...Jeg har Frontpage Server Extensions, og plejer at bruge det til formmails. Jeg kan også godt i Frontpage finde ud af at lave det så den både sender en mail, og skriver det til en tekstfil. Men når man i Frontpage vælger at man skal skrive til en database, så har man ikke mulighed for at vælge at den også skal sende en mail. Så jo, jeg skal nok selv indsætte noget kode, men her er jeg ikke så stærk...

Siden ser således ud :

<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"

fp_conn.Open Application("guestbook_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"

fp_rs.Open "guestbook", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"

fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(4)
Dim arFormDBFields0(4)
Dim arFormValues0(4)

arFormFields0(0) = "Mail"
arFormDBFields0(0) = "Mail"
arFormValues0(0) = Request("Mail")
arFormFields0(1) = "URL"
arFormDBFields0(1) = "URL"
arFormValues0(1) = Request("URL")
arFormFields0(2) = "Navn"
arFormDBFields0(2) = "Navn"
arFormValues0(2) = Request("Navn")
arFormFields0(3) = "Kommentar"
arFormDBFields0(3) = "Kommentar"
arFormValues0(3) = Request("Kommentar")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "IP"
End If
FP_SaveFieldToDB fp_rs, Now, "Tid"

fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"

fp_rs.Close
fp_conn.Close

Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "guestconfirm.asp"

End If
End If

%>
<html>

<head>
<title>Gæstebog</title>
</head>

<body stylesrc="../banner.htm">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="50%">
<h2><font face="Comic Sans MS">Gæstebog</font></h2>
</td>
<td width="50%" valign="top">
<p align="right"><font size="1">
<a target="_blank" href="../guestbook_interface/guestbook/editor/database_editor.asp">
Admin</a></font></td>
</tr>
</table>
<p> </p>
<form method="POST" action="--WEBBOT-SELF--">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="15%"><font face="Comic Sans MS">Navn :</font></td>
<td width="85%"><input type="text" name="Navn" size="35"></td>
</tr>
<tr>
<td width="15%"><font face="Comic Sans MS">E-mail :</font></td>
<td width="85%"><input type="text" name="Mail" size="35"></td>
</tr>
<tr>
<td width="15%"><font face="Comic Sans MS">Hjemmeside :</font></td>
<td width="85%"><input type="text" name="URL" size="35"></td>
</tr>
<tr>
<td width="15%" valign="middle"><font face="Comic Sans MS">Kommentar :</font></td>
<td width="85%"><textarea rows="8" name="Kommentar" cols="45"></textarea></td>
</tr>
<tr>
<td width="15%"><input type="submit" value="Send" name="Send">
<input type="reset" value=" Slet " name="Slet"></td>
<td width="85%"> </td>
</tr>
</table>
</form>
<hr>


<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM guestbook ORDER BY nummer DESC"
fp_sDefault=""
fp_sNoRecords="No records returned."
fp_sDataConn="guestbook"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=20
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="nummer"
fp_sMenuValue="nummer"
fp_iDisplayCols=6
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="901" id="AutoNumber6">
<tr>
<td width="225"> </td>
<td width="89"> </td>
<td width="361"> </td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Navn:</b></td>
<td width="361"><%=FP_FieldVal(fp_rs,"Navn")%></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Mail:</b></td>
<td width="361"><a href="mailto:<%=FP_FieldLink(fp_rs,"Mail")%>"><%=FP_FieldVal(fp_rs,"Mail")%></a></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>URL:</b></td>
<td width="361"><a target="_blank" href="//<%=FP_FieldLink(fp_rs,"URL")%>"><%=FP_FieldVal(fp_rs,"URL")%></a></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"><b>Tid:</b></td>
<td width="361"><%=FP_FieldVal(fp_rs,"Tid")%></td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="89"> </td>
<td width="361"> </td>
<td width="226"> </td>
</tr>
<tr>
<td width="225"> </td>
<td width="450" colspan="2" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
<p align="center"><%=FP_FieldVal(fp_rs,"Kommentar")%></p>
<p align="center"> </td>
<td width="226"> </td>
</tr>
</table>

</body></html>

Hvor skal jeg så indsætte koden?

Synes godt om

jensb Nybegynder

16. april 2002 - 14:24 #4

Lukker, og svarer selv da jeg ikke har fået løst problemet

Synes godt om

jensb Nybegynder

16. april 2002 - 14:25 #5

Damn...kom til at acceptere arriva's svar ved en fejl...men hva' jeg overlever nok de 30 point.

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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