T
thebraini
Hi ich hab da ne Frage!
Ich hab mein 1. Skript in ASP gemacht (teilweise geklaut vom Brinkster Exsample
)und meien Frage ist ob ich das richtig gemacht habe mit dem neuen Datensatz anlegen erst am Ende der vorhandenen DB ??
<%
Response.Expires = -1000
Dim oConn
Dim oRS
Dim sSQL
Dim sColor
Nummer ="56"
Name ="D@Shit"
Email ="the@da.de
Text ="BlaBlubKlingKlong"
'Datenbank oeffnen
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thebraini\db\db1.mdb"))
'SQL Abfrage
sSQL = "INSERT INTO Datenbank (Nummer, Name, Email, Text)" _
& " VALUES ('"& Nummer & "','" & Name & "','" & Email & "','" & Text & "');"
Set oRS = oConn.Execute(sSQL)
if NOT oRS.EOF
do while (not oRS.EOF)
oRS.MoveNext
loop
else
oConn.execute sSQL
end if
oConn.Close
%>
Mfg thebraini
Ich hab mein 1. Skript in ASP gemacht (teilweise geklaut vom Brinkster Exsample

<%
Response.Expires = -1000
Dim oConn
Dim oRS
Dim sSQL
Dim sColor
Nummer ="56"
Name ="D@Shit"
Email ="the@da.de
Text ="BlaBlubKlingKlong"
'Datenbank oeffnen
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thebraini\db\db1.mdb"))
'SQL Abfrage
sSQL = "INSERT INTO Datenbank (Nummer, Name, Email, Text)" _
& " VALUES ('"& Nummer & "','" & Name & "','" & Email & "','" & Text & "');"
Set oRS = oConn.Execute(sSQL)
if NOT oRS.EOF
do while (not oRS.EOF)
oRS.MoveNext
loop
else
oConn.execute sSQL
end if
oConn.Close
%>
Mfg thebraini