Postagens
Male
Olá pessoal eu novo aqui no fórum, estou iniciando em programação fiz um formulário de inscrião em asp, esta rodando perfeitamente em minha máquina, mas quando coloco no site, a página não e apresenta este erro logo abaixo. Se alguém puder me ajudar eu agradeço.
Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web.
Para obter mais informações sobre erros de HTTP, consulte a Ajuda.
código abaixo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conexao_inscricao_STRING
MM_conexao_inscricao_STRING = "dsn=inscri_dns;"
%>
<%
Dim minhasinscricoes
Dim minhasinscricoes_numRows
Set minhasinscricoes = Server.CreateObject("ADODB.Recordset")
minhasinscricoes.ActiveConnection = MM_conexao_inscricao_STRING
minhasinscricoes.Source = "SELECT * FROM inscricao"
minhasinscricoes.CursorType = 0
minhasinscricoes.CursorLocation = 2
minhasinscricoes.LockType = 1
minhasinscricoes.Open()
minhasinscricoes_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
minhasinscricoes_numRows = minhasinscricoes_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style3 {color: #666666; font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
-->
</style>
</head>
<body>
<p>Relação de Inscritos</p>
<table width="600" border="0" cellspacing="00" cellpadding="00">
<tr>
<td bgcolor="#CCCCCC"><div align="center" class="style3">Número</div></td>
<td bgcolor="#CECFCE"><div align="center" class="style3">Nome</div></td>
<td bgcolor="#CECFCE"><div align="center" class="style3">E-mail</div></td>
<td bgcolor="#CECFCE"><div align="center" class="style3">Telefone</div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT minhasinscricoes.EOF))
%>
<tr>
<td><%=(minhasinscricoes.Fields.Item("codigo").Value)%></td>
<td><%=(minhasinscricoes.Fields.Item("nome").Value)%></td>
<td><%=(minhasinscricoes.Fields.Item("email").Value)%></td>
<td><%=(minhasinscricoes.Fields.Item("tel").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
minhasinscricoes.MoveNext()
Wend
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<p> </p>
</body>
</html>
<%
minhasinscricoes.Close()
Set minhasinscricoes = Nothing
%>
