Importe contenido TXT a ACCESS y muéstrelo en primer plano (ASP)
Campo:
RecNo: número automático
Misión: comentarios, almacenamiento del contenido de la pregunta
p >
Respuesta1: Texto, almacena la respuesta a a;
Respuesta2: Texto, almacena la respuesta a a;
Resultado: Texto, almacena la respuesta correcta; p>
2 Crear una consulta y mostrar la página de búsqueda p>Resultado: texto, guardar la respuesta correcta;
2 Crear una consulta y mostrar la página de búsqueda. asp:
<%
dim strQues
strQues = Trim(Request.Form("TQues"))Form("TQues"))
si strQues<>"" entonces
Atenuar objConn
Atenuar objRS
Atenuar strConn
Atenuar strRS p>
Atenuar strTmp
Atenuar strQ
Atenuar strA1
Atenuar strA2
Atenuar strRlt
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data.mdb")
set objConn = Server.CreateObject("ADODB.CONNECTION") p>
objConn.Open strConn
strSql= "SELECCIONAR * DE Preguntas DONDE Búsqueda LIKE '%" & amp; strQues & "%'"
establecer objRS = Servidor. CreateObject("ADODB.CONNECTION")
objConn.Open strConn
strSql= "SELECT * FROM Preguntas DONDE Búsqueda LIKE '%" & amp strQues & "%'" p>