hjælp til gæstebog
Hejsa Hvem er frisk ??Jeg har en simpelt gæste bog.
Da jeg ikke gider kigge i min gæstebog hverdag, kunne jeg godt tænke mig, en lille Jmail funktion.
som sender en mail til mig, men en note fx nyt indlæg i gæstebogen.
Hvem kan lave det ???
Min gustebog er lavet således.
**** Skriv.asp *****
<br>
<body>
<form action="guest_ac.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1">
<tr>
<td width="80%" colspan="2" align="center" class="bund">
KAURI'S GÆSTEBOG</td>
</tr>
<tr>
<td width="15%" >Navn:</td>
<td width="65%" ><input type="text" name="navn" size="62"></td>
</tr>
<tr>
<td width="15%" >Email:</td>
<td width="65" ><input type="text" name="mail" size="62"></td>
</tr>
<tr>
<td width="15%" valign="top" >Skriv Tekst:</td>
<td width="65%" ><textarea rows="15" name="tekst" cols="47"></textarea></td>
</tr>
<tr>
<td width="80%" colspan="2" >
<input type="hidden" name="emne" value="laes" size="6">
<p align="right"><input type="submit" value="Send"
name="tilmeld"><input type="reset" value="Fortryd" name="Fortryd"></td>
</tr>
<tr>
<td width="80%" colspan="2" class="bund"></td>
</tr>
</table>
</center></form>
**** laes.asp ****
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%" align="center" class="bund">:: Læs Kauris gæstebog ::</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
<% Set Query4 = Conn.Execute("SELECT * From judo Where emne = '" & emne & "' ")%>
<% Do until Query4.EOF %>
<tr>
<td width="50%" class="bund"> Indlæg fra:<%=Query4("navn")%></td>
<td width="50%" class="bund"> E-mail:<a href="mailto:<%=Query4("mail")%>" class="lnews"><%=Query4("mail")%></a></td>
</tr>
<tr>
<td width="100%" class="txt" colspan="2"> <%=Replace(Query4("tekst"),vbcrlf,"<br>" & " ")%></td>
</tr>
<%Query4.MoveNext%>
<%loop%>
<tr>
<td width="100%" class="bund" colspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
***** guest_ac.asp ******
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
</head>
<body>
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert, tekst
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
navn = ChkString(Request.Form("navn"))
mail = ChkString(Request.Form("mail"))
tekst = ChkString(Request.Form("tekst"))
emne = ChkString(Request.Form("emne"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("judo.mdb")
sql_insert = "insert into judo (navn, mail, tekst, emne) values ('" & _
navn & "', '" & mail & "', '" & tekst & "', '" & emne & "' )"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write "Tak for du benyttede KAURI'S gæstebog."
response.redirect "default.asp?emne=tak"
%>
</body>
</html>
