<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
'On Error Resume Next
If Request("axn") <> "" Then
Dim dbPath
dbPath = "e:\web\deficitdeat\htdocs\encuestas\encuestas.mdb"
'dbPath = "C:\Inetpub\wwwroot\test\encuestas\encuestas.mdb"
Public Function CreateConnection(DBase)
Set CreateConnection = Server.CreateObject("ADODB.Connection")
CreateConnection.ConnectionTimeout = 0
CreateConnection.CommandTimeout = 0
CreateConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & DBase & ";" &_
"UID=Admin;" &_
"PWD=;"
End Function
Public Sub execQuery(query,rstRecords)
Dim linkConnect
Set linkConnect = CreateConnection(dbPath)
rstRecords.Open query,linkConnect,3,3
End Sub
Public Sub execCommand(query)
Dim LinkConnect
Set LinkConnect = CreateConnection(dbPath)
LinkConnect.Execute(query)
End Sub
Dim strSQL
strSQL = "INSERT INTO encuesta values(2,'" & Request("encuesta") & "')"
execCommand strSQL
%>
AMDAHTA
Gracias
por participar en nuestras encuestas
tu opinión ha sido contabilizada.
