Du skal jo også have den hvor du gemmer
----------------------- tag_skriv.asp --------------------------
<%
' Opret nogle variabler
Dim strOverskrift
Dim strNavn
Dim strEmail
Dim strBesked
' Er der skrevet noget i overskrift feltet?
IF (Request.Form("overskrift") <> "") then
' Er der skrevet noget i navn feltet?
IF (Request.Form("navn") <> "") then
' Er der skrevet noget i email feltet?
IF (Request.Form("email") <> "") then
' Er der skrevet noget i besked feltet?
IF (Request.Form("besked") <> "") then
' Hent data fra formular og udskift forskellige tegn
strOverskrift = Request.Form("overskrift")
strOverskrift = Replace(strOverskrift,"<","<")
strOverskrift = Replace(strOverskrift,">",">")
strNavn = Request.Form("navn")
strNavn = Replace(strNavn,"<","<")
strNavn = Replace(strNavn,">",">")
strEmail = Request.Form("email")
strEmail = Replace(strEmail,"<","<")
strEmail = Replace(strEmail,">",">")
strBesked = Request.Form("besked")
strBesked = Replace(strBesked,"<","<")
strBesked = Replace(strBesked,">",">")
strBesked = Replace(strBesked,vbCrLf,"<BR>")
strSQL = "insert into tbl_tagwall(tag_overskrift,tag_navn,tag_email,tag_besked,tag_dato)"
strSQL = strSQL & " Values('"& strOverskrift &"','"& strNavn &"','"& strEmail &"','"& strBesked &"',Now())"
' Udfør strSQL
conn.execute(strSQL)
' Send vidre til tag_skrivok.asp
response.redirect "/tagwall/tagwall.asp"
' Der mangler en besked
Else
Response Write "Der mangler en besked"
End If
' Der mangler en e-mail
Else
Response Write "Der mangler en e-mail"
End If
' Der mangler et navn
Else
Response Write "Der mangler et navn"
End If
' Der mangler en overskrift
Else
Response Write "Der mangler en overskrift"
End If
' Ved ikke lige hvad den skal bruges til...
' response.redirect "tag_fejl.asp"
%>
---------------------------------------------------------------------
Og så de to som du har:
------------------------------ tag_skriv.asp ------------------------------
<table width=400 align=center>
<form action=/tagwall/tag_skriv.asp method=post> ' Her skal navnet på den asp fil der gemmer være
<tr>
<td>
Overskrift:
</td>
</tr>
<tr>
<td>
<input type=tekst name=overskrift>
</td>
</tr>
<tr>
<td>
Navn:
</td>
</tr>
<tr>
<td>
<input type=tekst name=navn>
</td>
</tr>
<tr>
<td>
E-mail:
</td>
</tr>
<tr>
<td>
<input type=tekst name=email>
</td>
</tr>
<tr>
<td>
Besked:
</td>
</tr>
<tr>
<td>
<textarea name=besked rows=5 cols=30></textarea>
</td>
</tr>
<tr>
<td>
<input type=submit value=send name=send>
</td>
</tr>
</form>
</table>
------------------------------ / tag_skriv.asp ------------------------------
------------------------------ tagwall.asp ------------------------------
<%
' Opret nogle variabler
Dim ObjRS
Dim strOverskrift
Dim strNavn
Dim strEmail
Dim strBesked
Dim strDato
' Her vælges alt fra tagwallen, og det sorteres med den nyeste besked først
Set ObjRS = Conn.Execute("SELECT * FROM tbl_tagwall ORDER BY tag_id DESC") ' eller ASC for ældste
Response.Write "<table width=""500"" align=""center"">" & vbCrLf
' link til at tilføje en besked
Response.Write "<tr><td>" & vbCrLf
Response.Write "<a href=""/tagwall/tag_skriv.asp"">tilføj besked</a>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
' Et lille check på om vi fik records ...
If (Not ObjRS.BOF) And (Not ObjRS.EOF) Then
' flyt til den første, så vi er sikker på at starte rigtigt
ObjRS.MoveFirst
' så længe vi ikke er nået til slutningen, gentag
While Not ObjRS.EOF
strOverskrift = ObjRS("tag_overskrift") ' her hentes overskriften
strNavn = ObjRS("tag_navn") ' her hentes navnet
strEmail = ObjRS("tag_email") ' her hentes emailen
strBesked = ObjRS("tag_besked") ' her hentes beskeden
strDato = ObjRS("tag_dato") ' her hentes datoen
Response.Write "<tr><td>" & vbCrLf
Response.Write strOverskrift & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td>" & vbCrLf
Response.Write "Skrevet af <a href="mailto:" & strEmail & ">" & strNavn & "</a> d. " & strDato & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td>" & vbCrLf
Response.Write strBesked & vbCrLf
Response.Write "</td></tr>" & vbCrLf
' Her tømmes variablerne så der ikke sker fejl
strOverskrift = ""
strNavn = ""
strEmail = ""
strBesked = ""
strDato = ""
' her tages det næste element i databasen
ObjRS.MoveNext
' Slut
Wend
' Vi fik ingen record
Else
Response.Write "Der er endnu ikke skrevet noget i tagwallen" & vbCrLf
End If
Response.Write "</table>"
' Recordset lukkes
ObjRS.Close
' og hukommelsen tømmes
Set ObjRS = Nothing
' database forbindelsen lukkes
conn.close
set conn = nothing
%>
Hvor er din åbning af databasen ?
Slettet bruger
Slettet bruger
Opret
Preview
