Gracias amigo este es el codigo, con rojo está la parte que me tiene de cabezas....
un abrazo
Walter
<html>
<link rel="stylesheet"
type="text/css" href="ee.css" />
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet"
type="text/css" href="e.css" />
<title>Aplicacion SRS</title>
</head>
<body topmargin="1" leftmargin="1" background=images\langateMoreLight.JPG>
<%
DB_CONNECTIONSTRING = "DSN=xx;UID=xx;PWD=xx;"
DB_USERNAME = ""
DB_PASSWORD = ""
Dim objDataConn
Dim objRSList
Set objDataConn = Server.CreateObject("ADODB.Connection")
Set objRSList = Server.CreateObject("ADODB.RecordSet")
objDataConn.Open DB_CONNECTIONSTRING
Reclamo=Request.QueryString("nt")
Vuelo=Request.QueryString("id")
fecha=Request.QueryString("cc")
sql = "Select * from INFVLP WHERE ITEM = '" & Reclamo & "' AND NVUELO='" & Vuelo & "'"
objRSList.Open SQL, objDataConn
Dim objDataConn1
Dim objRSList1
Set objDataConn1 = Server.CreateObject("ADODB.Connection")
Set objRSList1 = Server.CreateObject("ADODB.RecordSet")
objDataConn1.Open DB_CONNECTIONSTRING
Reclamo=Request.QueryString("nt")
Vuelo=Request.QueryString("id")
cCliente=Request.QueryString("cus")
fecha=Request.QueryString("cc")
sql = "Select USRCOD,TIPO,PROBLEMA,TIPO1,RESPUESTA,CLASE from INFVLP WHERE ITEM = '" & Reclamo & "' AND NVUELO='" & Vuelo & "'"
objRSList1.Open SQL, objDataConn
clase= objRSList1.Fields("CLASE").Value
for each myvar In objRSList.Fields
Response.Write myvar.name & "-"
Response.Write myvar.value & "</BR>"
next
%>
<center>
<table border="1" width="50%" height="20">
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject ")
Set rs=fs.OpenTextFile("c:\inetpub\www1root\srssys\app \inifiles\" & rtrim(ccliente) & ".ini",1)
rcuenta=1
Dim aField(50,3)
While not rs.AtEndOfStream
strRL = RS.ReadLine
xpos = InStr(strRL, "=")
cpos = InStr(strRL, ",")
npos= xpos - 1
if npos =< 0 then npos=1
Campo = Left(strRL, npos)
Valor = mid(strRL, (xpos+1),cpos-xpos-1 )
Pantalla = Right(strRL, (Len(strRL) - cpos))
aField(rCuenta,1) = Campo
aField(rCuenta,2)= Valor
aField(rCuenta,3)= Pantalla
rcuenta = rcuenta + 1
Wend
for I = 1 To 50
if afield(I,1) <> "" and inStr(afield(I,3),"D") > 0 then
Response.Write "<td><b>" & afield(I,2) & "</b></td><td>"
for each myvar In objRSList.Fields
If Myvar.name = aField(I,1) Then
Response.Write myvar.value & "</td></tr>"
End if
next
End if
Next
%>
</table>
<%
'<textarea name="ESPEC" rows="5" cols="40" Value=> </textarea>
xvalor= objRSList.Fields("ITEM").Value
xtipo = objRSList1.Fields("TIPO").Value
xUser = objRSList1.Fields("USRCOD").Value
objRSList.Close
objRSList.Open "SELECT * FROM INFUSR", objDataConn
nUser = ObjRSList.Fields("USRDES").Value
objRSList.Close
objRSList1.Close
objRSList.Open "SELECT * FROM INFCLA", objDataConn
Response.Write "<FORM action=""clas.asp?action=clas"" method=""POST"">"
Response.Write "Seleccione Clasificacion : <BR>" & vbNewLine
Response.Write "<INPUT type=""HIDDEN"" name=""action"" value=""clasif"">"
Response.Write "<INPUT type=""HIDDEN"" name=""xxD"" value=" & xValor & ">"
Response.Write "<SELECT size=""1"" id=""INFCOD"" name=""Record"">"
If xTipo = "00" Then
xValue="00"
Else
xValue=Left(xTipo,2)
End If
Do While Not objRsList.EOF
Response.Write " <OPTION"
If objRSList.Fields("INFCOD").Value = xValue Then Response.Write " SELECTED"
Response.Write ">" & objRSList.Fields("INFCOD").Value & " - " & objRSList.Fields("INFDESC").Value & "</OPTION>"
objRSList.MoveNext
Loop
Response.Write "</SELECT>"
objRSList.Close
objRSList.Open "SELECT * FROM INFUSR WHERE SUBSTRING(FLAG1,1,2)='10' order by USRCOD", objDataConn
Response.Write "<FORM action=""clas.asp?action=clas"" method=""POST"">"
Response.Write "<SELECT size=""1"" id=""USRCOD"" name=""RUsers"">"
If xUser="" Then
xUserValue=" NA"
Else
xUserValue=xUser
End If
Do While Not objRsList.EOF
Response.Write " <OPTION"
If TRIM(objRSList.Fields("USRCOD").Value) = TRIM(xUserValue) Then Response.Write " SELECTED"
Response.Write ">" & objRSList.Fields("USRDES").Value & "</OPTION>"
objRSList.MoveNext
Loop
Response.Write "</SELECT></BR>"
Response.Write "<INPUT type=""submit"" value=""Submit"" id=""submit1"" name=""submit1""></BR></BR>"
%>
</center><%
Response.Write "</FORM>"
Response.Write "</HTML>"
objRSList.Close
objDataConn.Close
Set objDataConn = Nothing
' <td><B>Respuesta</B></td>
' <td><textarea name="respuest1" rows="5" cols="40" Value=><%=objRSList1.Fields("RESPUESTA").Value%></textarea></td></tr>