03/04/2002, 12:35
|
| | Fecha de Ingreso: enero-2002
Mensajes: 7
Antigüedad: 23 años Puntos: 0 | |
Re: Internet Explorer ESTE ES MI CODIGO
response.write "<form name=""forma"" action=""insrep.asp"" method=""POST"" onSubmit=""return checar();submitonce(this)"">" & vbCRLF
response.write "<table cellpadding=10>" & vbCRLFresponse.write vbTab & "<tr>" & vbCRLF
response.write vbTab & vbTab & "<td colspan=2>" & vbCRLF
nombre = objCDOSession.CurrentUser.Field(CdoPR_DISPLAY_NAME )
response.write vbTab & vbTab & vbTab & "<h2>Bienvenido(a) " & nombre & "</h2>" & vbCRLFresponse.write vbTab & vbTab & "</td>" & vbCRLFresponse.write vbTab & "</tr>" & vbCRLFresponse.write vbTab & "<tr>" & vbCRLF
response.write vbTab & vbTab & "<td valign=top>Falla o Requisición:</td>" & vbCRLFresponse.write vbTab & vbTab & "<td>" & vbCRLFresponse.write vbTab & vbTab & vbTab & "<textarea name=""Falla"" rows=6 cols=35 wrap=virtual>" response.write vbTab & vbTab & "<td valign=top>¿Cómo podemos contactarte?:</td>" & vbCRLFresponse.write vbTab & vbTab & "<td>" & vbCRLF response.write vbTab & vbTab & vbTab & "<textarea name=""Contacto"" rows=6 cols=35 wrap=virtual></textarea>" & vbCRLF
response.write vbTab & vbTab & "</td>" & vbCRLFresponse.write vbTab & "</tr>" & vbCRLF
response.write vbTab & "<tr>" & vbCRLF
response.write vbTab & vbTab & "<td valign=top>Área de Soporte:<br>(¿A quién se lo pides?)</td>" & vbCRLFresponse.write vbTab & vbTab & "<td align=center>" & vbCRLF
response.write vbTab & vbTab & vbTab & "<select name=""asop"">" & vbCRLF
response.write vbTab & vbTab & vbTab & vbTab & "<option value=""pick"">Escoge una área</option>" & vbCRLF
Set dbCurr = Server.CreateObject("ADODB.Connection")S et rsTemp = Server.CreateObject("ADODB.Recordset")
SqlConn = "DSN=HelpDesk;"
Sql = "SELECT * from AreaSop"dbCurr.Open SqlConnrsTemp.Open Sql, dbCurr
while not rsTemp.EOF
response.write vbTab & vbTab & vbTab & vbTab & "<option value=""" & rsTemp("AreaSop") & """>" & rsTemp("Descripcion") & "</option>" & vbCRLF rsTemp.MoveNext
wend
rsTemp. |