<%
'If IsObject(Session("Conn")) Then
' Set Conn = Server.CreateObject("ADODB.Connection")
' conn.Open "CiberJobDB", "",""
'Else
' Set Conn = Server.CreateObject("ADODB.Connection")
' --- Conexión directa (sin DSN) -----------
' strConn="DRIVER={Microsoft Access Driver (*.mdb)};"
' strConn=strConn + "DBQ=D:\inetpub\wwwroot\pruebas\Ciberjob\MensaBas\ArqueoCJ.mdb;"
' strConn=strConn + "DBQ=C:\servidor\ciberjob\arqueologia\MensaBas\ArqueoCJ.mdb;"
' strConn=strConn + "Uid=Admin;Pwd=;"
' --- Conexión mediante DSN ----------------
' strConn="DSN=CiberJobDB;Uid=Admin;Pwd=;"
' Conn.Open strConn
' Set Session("Conn") = Conn
'End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "CiberJobDB", "",""
%>
CiberJob. Mensajes de Arqueología
<%
Const adCmdText = &H0001
AVISO=""
if Request.Form("CONTRA")="omeya" then
sql="SELECT IDENT FROM MENSAJES ORDER BY IDENT"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
do while not rs.eof
IDENT=rs("IDENT")
rs.movenext
loop
' rs.MoveLast
IDENT=IDENT + 1
FECHA=date()
ASUNTO=Request.Form("ASUNTO")
EMISOR=Request.Form("EMISOR")
EMAIL=Request.Form("EMAIL")
MENSAJE=Request.Form("MENSAJE")
sql="INSERT INTO MENSAJES VALUES (" & IDENT & ",0,'" & ASUNTO & "','" & FECHA & "','" & EMISOR & "','" & EMAIL & "','" & MENSAJE & "')"
Insertados=1
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn
' Insertados = rs2.RecordCount
' Session("conn").Execute(SQL), Insertados, adCmdText
If Insertados>0 then%>
|
Gracias por su colaboración.
El mensaje reflejado a continuación se ha insertado en la base de datos de CiberJob
|
Asunto: <%=ASUNTO%>
Nombre: <%=EMISOR%>
E-Mail: <%=EMAIL%>
Mensaje: <%=MENSAJE%>
|
<%else%>
<%AVISO="LA BASE DE DATOS NO SE ENCUENTRA DISPONIBLE."%>
<%end if%>
<%else%>
<%AVISO="NO SE HA INDICADO CONTRASEÑA O ES INCORRECTA."%>
<%end if%>
<%if AVISO<>"" then%>
Se ha producido el siguiente error:
<%=AVISO%>
Si lo desa, puede enviar de nuevo su mensaje:
<%end if%>
Volver al Tablón de anuncios
© CiberJob - 1998
<%
conn.Close
set rs2 = nothing
SET rs=NOTHING%>