<%

'Open a Connection with database

Dim DSN

DSN="Provider=SQLOLEDB.1; Persist security info=false; user id=sa; password=main; initial catalog=database name Data Source=localhost"

set objCon=Server.CreateObject("ADODB.Connection")

objCon.Open DSN

%>

<%

'Get the Query

Dim SQL

SQL="insert into tablename values('a','b','c')"

%>

<%

'Insert Into Database

objCon.Execute(SQL)

%>