nicht angemeldet
Servus.
Ich kann dir mal Teile aus einem ASP geben mit ich serverseitig unter VBS Daten in eine DB schreibe.
Schau mal, ob Du mit den Anregungen etwas anfangen kannst
bydey
<%@ Language=VBScript %>
<% option explicit %>
<%
dim strname, strfirma, strkurs
dim strdate
dim objcon, strcon, strpath1, strpath2
dim strsql, objcmd, objrs
strname=Request.Form("name1")
strfirma=Request.Form("firma1")
strkurs=Request.Form("kurs1")
set objcon=server.CreateObject("adodb.connection")
strpath1 = server.MapPath ("\bydey\db\kurse.mdb")
strpath2 = server.MapPath ("./kurse.mdb")
strcon="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="& strpath2 &";PASSWORD=;"
objcon.CommandTimeout=10
objcon.ConnectionString=strcon
objcon.Open
set objrs=server.CreateObject("adodb.recordset")
objrs.ActiveConnection=objcon
objrs.CursorType = 3
objrs.CursorLocation = 3
objrs.LockType = 3
%>
<HTML>
<HEAD>
<title>Daten schreiben</title>
</HEAD>
<BODY>
<P> </P>
<h1>Anmeldung von
<%
Response.Write strname & " am " & strdate
%>
<%
strsql= "INSERT INTO teilnehmer ( name, firma, kurs ) values "
strsql = strsql & "('" & strname & "' , '" & strfirma & "' , '" & strkurs & "' );"
set objcmd=server.CreateObject("adodb.command")
objcmd.ActiveConnection=objcon
objcmd.CommandTimeout=10
objcmd.CommandText=strsql
objcmd.Execute
set objcon= nothing
set objcmd= nothing
%>