Insert ved hjelp av en System-DSN

Eksemplet under er en utrolig kjapp måte å legge inn noe i en database. Det eneste du må sette opp er en database og en ODBC-kobling som peker mot den. Jeg pleier alltid å bruke en System-DSN ettersom Microsoft påstår at dette er den kjappeste. Fordelen med ODBC er at man kan bruke f.eks Access under beta-testingen, og nå man er fornøyd, kan man bare lage en lik tabell i SQL-Server eller Oracle og peke koblingen mot denne.

For å bruke denne funksjonen må du sende inn variabler fra en form. Hvor tekstboksene heter fortrinnshvis fornavn og etternavn.

Slik ser funksjonen ut:

<%@Language="VBScript"%>

<%
Session.LCID=1033
Function Insert()
conn="DSN=Student;uid=student;pwd=magic"
Set RS = Server.CreateObject("ADODB.Recordset") 
RS.Open "database",Conn,adopenstatic,adlockoptimistic 
'tabell er tabellnavnet, tallene 2,2 skal stå uansett da
dette er satte parametre'
RS.Open "person",2,2
RS.Addnew
'RS er det feltet i databasen'
    RS("fornavn") = Request.form("fornavn")
    RS("Etternavn")=Request.form("fornavn")
    RS("alder")=Request.form("alder")

RS.Update
RS.Close
End Function
'Vi kaller opp funksjonen vår på denne måten:'
Insert()
%>

Skrevet av Sindre Mathisen 2001