<%
If IsObject(Session("Conn")) Then
Set Conn = Session("Conn")
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
%>
CiberJob. Mensajes de Arqueología
<%
AVISO=""
if Request.Form("CONTRA")="omeya" then
ID=Request.Form("ID")
if ID<>"" then
sql="SELECT ASUNTO FROM MENSAJES WHERE IDENT="
sql=sql & ID & " ORDER BY IDENT "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.RecordCount>0 then
rs.MoveLast
FECHA=date()
ASUNTO=rs("ASUNTO")
sql="SELECT IDENT FROM MENSAJES ORDER BY IDENT"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn, 3, 3
rs2.MoveLast
IDENT=rs2("IDENT") + 1
EMISOR=Request.Form("EMISOR")
EMAIL=Request.Form("EMAIL")
MENSAJE=Request.Form("MENSAJE")
sql="INSERT INTO MENSAJES VALUES (" & IDENT & "," & ID & ",'" & ASUNTO & "','" & FECHA & "','" & EMISOR & "','" & EMAIL & "','" & MENSAJE & "')"
Insertados=0
Session("conn").Execute(SQL), Insertados
If Insertados>0 then
sql="INSERT INTO RESPUESTAS VALUES (" & ID & "," & IDENT & ")"
Insertados=0
Session("conn").Execute(SQL), Insertados
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 SE HA ACTUALIZADO PARCIALMENTE."%>
<%end if%>
<%else%>
<%AVISO="LA BASE DE DATOS NO SE ENCUENTRA DISPONIBLE."%>
<%end if%>
<%else%>
<%AVISO="EL IDENTIFICADOR DE MENSAJE NO ES CORRECTO."%>
<%end if%>
<%else%>
<%AVISO="EL IDENTIFICADOR DE MENSAJE NO ES CORRECTO."%>
<%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 respuesta:
<%end if%>
Volver al Tablón de anuncios
© CiberJob - 1998
<%
conn.Close
SET rs=NOTHING%>