sonny kristensen wrote in
dk.edb.internet.webdesign.serverside.asp:
> hej er der nogen der kan se fejlen i denne gæstebog????
>
> connect.asp:
>
>
> <% 'include file
> dim strConnect
> strConnect = "Provider=Mircosft.Jet.OLEDB.4.0.;Data
> Source=gast.mdb"
>
> %>
>
>
>
> gast.asp:
>
>
>
> <% OPTION EXPLICIT %>
> <!-- #include file="connect.asp -->
> <html>
> <head>
> <title>Gæstebog</title>
> </head>
> <body>
>
> <%
> dim strAction
>
> strAction=request("action")
>
> select case strAction
> case "write"
> 'vis formular til indtastning
> ShowOptions
> ShowForm
> case "show"
> 'vis indhold
> ShowOptions
> ShowList request("formid")
> case "insert"
> 'indsæt resultat af formular
> WriteForm
> ShowOptions
> ShowList 0
> case else
> 'vis valgmuligheder
> ShowOptions
> end select
>
>
>
> '--------------------------------------
> 'funktioner/procedurer
> '--------------------------------------
>
>
> sub ShowForm
> 'viser en formular, hvor den besøggende skal indtaste i
> %>
>
> <form action="gast.asp?action=insert" method="post">
> Navn: <input type="text" name="guestname"><br>
> Email: <input type="text" name="guestemail"><br>
> <textarea name="guestmessage"> </ textarea><br>
> <input type="submit" value="Indsend">
>
> <%
> end sub
>
> sub ShowList (intFromID)
> 'viser indlæg i gæstebogen
> '10 indlæg vises ad gangen
> dim strSQL, objrs, strWhere
> dim arrRows, i
> if intFromID > 0 then
> strWhere = " WHERE guestid <= " & intFromID & " "
> else
> strWhere = " "
> end if
>
> strSQL = " SELECT guestid, guestname " & _
> "guestemail, guestmessage FROM gast" & _
> strWhere & _
> "ORDER BY datesubmitted DESC"
>
> set objrs = server.createobject("ADODB.Reocordset")
> whit objrs
> .open strSQL, strConnect, adOpenForwardOnly,
adLockReadOnly,
> adCmdText
> if not .EOf then
> arrRows = .GetRows(10)
> end if
> .close
> end with
> set objrs = Nothing
>
> if isArray(arrRows) then
> intFromID = arrRows(0,ubound(arrRows,2))
> for i = 0 to ubound(arrRows,2)
> response.write arrRows(o,i) & ". " & _
> arrRows(1,i) & _
> "<br>" & arrRows(2,i) & _
> "<br>" & arrRows(3,i) & "<hr>"
> next
> response.write _
> "<a href='gast.asp?action=show&fromid=" & intFromID+10 &
> "'>Tilbage</a> " & _
> "<a href='gast.asp?action=show&fromid=" & intFromID - 1 &
> "'>Frem</a>"
> else
> response.write "<p>Ikke flere indlæg i gæstebogen.<p>"
> end if
> end sub
>
> sub WriteForm
> 'indlægget skrives til db
> dim strSQL, objCMD
> strSQL = "INSERT INTO gast " & _
> "(guestname, guestemail, guestmessage, datesubmitted) " & _
> "VALUES (" & _
> "'" & reguest("guestname") & "', " & _
> "'" & reguest("guestemeail") & "', " & _
> "'" & reguest("guestmessage") & "', " & _
> "date()" & _
> ")"
>
> set objCMD = server.createobject("ADODB.Command")
> with objCMD
> .ActiveConnection = strConect
> .CommandType = adCMDText
> .CommandText = strSQL
> .Execute
> end with
> set objCMD = Nothing
> end sub
>
> sub ShowOptions
> 'viser hvilke muligheder der er
> %>
> <h1>Gæstebog</h1>
> <p>Hej, du kan skrive i min gæstebog, hvis du har lyst.
> <br>
> <a href="gast.asp?action=write">Skriv i gæstebog</a><br>
> <a href="gast.asp?action=show">Se hvad de andre har
skrevet</a>
> </p>
> <%
> end sub
>
> %>
> </body>
> </html>
>
>
> og så er der jo databassen den kan jeg ik lige smide her ind
men
> er der nogen der kan se fejlen her????
nu er jeg ikke haj til asp men det ville nok hjælpe at se den
fejl du får.
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials