Source Code

<%@ LANGUAGE="VBScript" %>
<%
LastName = Replace(Request("LastName"), "'", "''")
FirstName = Replace(Request("FirstName"), "'", "''")
Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open "DSN=volcano"

SQLStmt = "INSERT INTO Employees (LastName, FirstName) "
SQLStmt = SQLStmt & "VALUES ('" & LastName & "','" & FirstName & "') "
Set RS = Connection.Execute(SQLStmt)
%>

Back