Hier mal eine kleine Vorlage, die hab ich mir seinerzeit mal gebastelt,
vielleicht hilfts ja ein bisschen beim Experimentieren:
<%@LANGUAGE="VBSCRIPT" %>
<% option explicit
dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "MeineDSN"
' --- wenn insert
if Request("go") <> "" then
dim sql, AnzahlDS
sql = "insert into datkunden (Ausgabe) Values ('" & Request("eingabe") &
"')"
objConn.Execute( SQL )
Response.redirect("meineSeite.asp")
' --- ansonsten Ausgabe Formular aufgelisteten DS
else
dim rs
dim Anzahl
Response.Write("<form name=""form1"" method=""post""
action=""MeineSeite.asp"">" & vbcrlf)
Response.Write("<input type=""text"" name=""eingabe"">" & vbcrlf)
Response.Write("<input type=""submit"" name=""go"" value=""go"">" &
vbcrlf)
Response.Write("</form>")
sql = "Select * from datkunden "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3
AnzahlDS = rs.RecordCount ' Anzahl DS ermitteln
Response.write (AnzahlDS) & "<br><br>" ' Ausgabe Anzahl DS
while not rs.eof
' --- Z�hler f�r Dataensatz
Anzahl = Anzahl+1
Response.write Anzahl & " " & rs("ausgabe") & "<br><br>"
'--- nach 7. Datensatz eine Trennlinie
if Anzahl = 7 then
Response.write "<hr>"
end if
rs.movenext
wend
' --- Recordset schlie�en
rs.close
set rs=nothing
end if
' -- Verbindung schlie�en
objConn.close
set objConn = Nothing
%>
Herzliche Gr��e, Gudula und auch ein sch�nes Wochenende
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
