Problema Con Ejecutar 2 Consultas

[mc_quake]

a simple vista el error es que tiene

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

dentrol del if y tu consulta

strSQL2 = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2



If Not rs.EOF then

csr = rs.Fields("csr")
nombre_cliente= rs.Fields ("nombre_cliente")
fecha_in= rs.Fields("fecha_in")
artefacto= rs.Fields("artefacto")
serie= rs.Fields("serie")
estado= rs.Fields("estado")

fecha_ret= rs.Fields("fecha_ret")

gtia= rs.Fields("gtia")
tecnico= rs.Fields("tecnico")

comentarios= rs.Fields("comentarios")

esta dentro del else lo que aria es sacar esto fuera del if

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")


suerte