"Tommy" <info@manniken.dk> wrote
> Jo tak. Det gør jeg så . Det lyder jo som om det kan lade sige gøre. Men
jeg
> kan nok lave en form der virker og jeg kan også få vist på en side hvad
der
> bliver indtastet i formen men hvordan jeg forbinder det med databasen ved
> jeg ikke.
Lad os sige at du i din database har en tabel med navnet kommentarer med
følgende felter:
Navn | Email | Site | Kommentar
Du skal så et eller andet sted vise dataene, dette kan du gøre vha. noget
ala nedenstående:
<%
'Vi laver en forbindelse til access databasen
Dim objConn
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\sti\til\din\database.mdb"
objConn.Open()
'Vi hiver data ud i et recordset
Set objRS = objConn.Execute( "SELECT Navn, Email, Kommentar FROM
kommentarer WHERE Site = 'den side vi er på'" )
'Vi løber igennem dataene og udskriver kommentarerne
Do while Not objRS.EOF
Response.Write( "Kommentar skrevet af <a href="mailto:" &
Trim(objRS( "Email" )) & ">" & objRS( "Navn" ) & "</a>:<br />" )
Response.Write( objRS( "Kommentar" ) & "<br /><hr /><br />")
objRS.Movenext
Loop
'Vi rydder op i objekter
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Mht. indsættelsen i databasen laver du blot din formular ala nedenstående:
<form method="post" action="indsaetkommentar.asp">
<input type="hidden" name="Site" value="<siden vi er på>" />
Navn: <input type="text" name="Navn" /><br />
Email: <input type="text" name="Email" /><br />
Kommentar: <textarea name="Kommentar"></textarea><br />
<input type="submit" value="Opret kommentar" /><br />
</form>
På siden indsaetkommentar.asp laver du så følgende kode:
<%
'Vi laver en forbindelse til access databasen
'(dette kan du evt. ligge i en inkludefil så det kun skal ændres et
sted)
Dim objConn
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\sti\til\din\database.mdb"
objConn.Open()
'Vi bruger SQL's insert kommando til at indsætte dataene i databasen
objConn.Execute( "INSERT INTO kommentarer( Navn, Email, Site,
Kommentar ) VALUES( '" & Replace( Request.Form( "Navn" ) & "", "'", "''" ) &
"','" & Replace( Request.Form( "Email" ) & "", "'", "''" ) & "', '" &
Replace( Request.Form( "Site" ) & "", "'", "''" ) & "' Replace(
Server.HTMLEncode(Request.Form( "Kommentar" )) & "", "'", "''" ) & "' )" )
'Vi rydder op i objekter
objConn.Close
Set objConn = Nothing
%>
Ovenstående er ikke testet, og du skal passe på knækkede linier.
--
Jakob Andersen