Asp Dentro De Asp

Galera, sei que o que está em destaque está erradíssimo.. mas como eu devo corrigir, para eu poder armazenar uma variavel que está dentro de uma instrução da tag <% %>, se eu preciso recuperar um determinado valor, tb usando <%%>?



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario

Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes, ano
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))

hora_completa= "'"&hora&"'+ ":" + '"&minuto&"'"
data_completa= "'"&dia&"' + "\" '"&mes&"' + "\" + '"&ano&"'"

hora= <%=Hour(now)%>
minuto=<%=Minute(now)%>
dia= <%=Day(date)%>
mes= <%=Month(now)%>
ano=<%=Year(now)%>

sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
Set conexao= server.CreateObject("ADODB.Connection")
dsn = server.mapPath ("\sigesa\sigesa.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep"' ")
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p>&nbsp;</p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%>

Edição feita por: Lengrat, 16/10/2003, 00:15.

intaum cara se vc quer atribuir valores a variaveis não precisa usar as tags é so colocar sem elas

hora= Hour(now)
minuto=Minute(now)
dia= Day(date)
mes=Month(now)
ano=Year(now)

Sério??! Putz cara...valeu mesmo. E eu quebrando a cabeça com isto
Valeu

acerta ai:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario

Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes, ano
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))

hora=Hour(now)
minuto=Minute(now)
dia=Day(date)
mes=Month(now)
ano=Year(now)

hora_completa=hora & ":" & minuto
data_completa=dia & "/" & mes & "/" & ano

sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
Set conexao= server.CreateObject("ADODB.Connection")
dsn = server.mapPath ("\sigesa\sigesa.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep"' ") 
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p>&nbsp;</p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%> 

Valeu Rods