Ir para conteúdo
Fórum Script Brasil

ajventorin

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre ajventorin

ajventorin's Achievements

0

Reputação

  1. Prezados, estou com problemas ao executar o seguinte script em meu servidor: <code> <% Session.Timeout = 1500 Server.ScriptTimeout = 1500 response.buffer="true" if session("mat_prof") = "" Then response.redirect("login.asp") end if %> <!--#Include file="conecta_ai2009.asp"--> <% SQL_1 = "select R.*, Q.DESQUE, Q.TIPQUE, G.DESGRU from AI_RESPOSTAS_UNV R inner join AI_QUESTOES_UNV Q on R.CODQUE=Q.CODQUE "&_ "inner join AI_GRUPOS_UNV G on Q.CODGRU=G.CODGRU "&_ "where (R.cod_prof='"& session("mat_prof") &"') and (R.curso='"&request.querystring("curso")&"') order by R.codque" Set RS_1 = conn.execute(SQL_1) %> <% ' Gravando dados do formulario if request("enviar") <> "" then Dim VCod_Prof, VCurso_Prof VCod_Prof = session("mat_prof") VCurso_Prof = request.QueryString("curso") ' On Error Resume Next RS_1.MoveFirst if not RS_1.eof then do while not RS_1.Eof VResultado = request.form("Resultado_"&RS_1("CODQUE")) VComentario = request.form("Comentario_"&RS_1("CODQUE")) VQuest = RS_1("CODQUE") if (VResultado <> "") or (VComentario <> "") then SqlAlt = "UPDATE AI_RESPOSTAS_UNV set RESULTADO='"&VResultado&"', COMENTARIO='"&VComentario&"' where (cod_prof='"&VCod_Prof&"') and (curso='"&VCurso_Prof&"') and (codque="& VQuest &")" Conn.Execute(SqlAlt) end if RS_1.movenext loop end if RS_1.MoveFirst End if %> </code> O erro acontece nas linhas destacadas. O grande X da questão é que esse script roda no servidor da locaweb, mas no meu servidor ele dá o seguinte erro: Microsoft OLE DB Provider for SQL Server (0x80040E31) Tempo excedido /intraprof/AI2009_questoes.asp, line 32 Consigo rodar um script sql com insert mas não consigo rodar esse de update. O que pode estar acontecendo?
×
×
  • Criar Novo...