Erro Interno Do Servidor

[Guest - Ricardo -]

Estou fazendo um cadastro de clientes e esta me retornando com mensagem de erro interno do servidor, o q é isso?

Abaixo o codigo do arquivo

<% referer = Request.ServerVariables("HTTP_REFERER") %>

<%

FUNCTION fixQuotes( theString )

fixQuotes = REPLACE( theString, "'", "''" )

END FUNCTION

FUNCTION checkpassword( byVal username, byVal password, byRef Con )

sqlString = "SELECT user_id FROM users " &_

"WHERE user_username='" & username & "' " &_

"AND user_password='" & password & "'"

SET RS = Con.Execute( sqlString )

IF RS.EOF THEN

checkpassword = - 1

ELSE

checkpassword = RS( "user_id" )

addCookie "username", username

addCookie "password", password

END IF

END FUNCTION

FUNCTION SELECTED( firstVal, secondVal )

IF cSTR( firstVal ) = cSTR( secondVal ) THEN

SELECTED = " SELECTED "

ELSE

SELECTED = ""

END IF

END FUNCTION

<%

SUB errorForm(theError)

%>

<%=theError %>

<td align="center" valign="top"><form method="post" action="<%=referer%>">

<% FOR EACH item IN Request.Form %>

<input name="<%=item%>" type="hidden" value="<%=Server.HTMLEncode( Request.Form( item))%>">

<% NEXT %>

<input type="submit" name="Submit" value="Retorna">

</form>

<%

Response.End

END SUB

'===========================

' Registration Functions

'===========================

Sub add User

' Get Registrtion Fields

newusername = TRIM( Request.Form("newusername"))

newsenha = TRIM( Request.Form("newsenha"))

nome = TRIM( Request.Form("nome"))

email = TRIM( Request.Form("email"))

ender = TRIM( Request.Form("ender"))

bairro = TRIM( Request.Form("bairro"))

city = Trim( Request.form("city"))

estado = Trim( Request.form("estado"))

cep = Trim( Request.form("cep"))

fone = Trim( Request.form("fone"))

canil = Trim( Request.form("canil"))

kennel = Trim( Request.form("kennel"))

criador = TRIM( Request.Form("criador"))

dirigente = TRIM( Request.Form("dirigente"))

handler = TRIM( Request.Form("handler"))

juiz = TRIM( Request.Form("juiz"))

proprie = TRIM( Request.Form("proprie"))

%>

data = <%=date%>

<%

' Check for required files

IF newusername = "" THEN

errorForm "Você esqueceu de colocar o username!"

END IF

IF newsenha = "" THEN

errorForm "Você esqueceu de colocar a senha!"

END IF

IF nome = "" THEN

errorForm "Você esqueceu de colocar seu nome!"

END IF

IF email = "" THEN

errorForm "Você esqueceu de colocar seu e-mail!"

END IF

IF ender = "" THEN

errorForm "Você esqueceu de colocar seu endereço!"

END IF

IF bairro = "" THEN

errorForm "Você esqueceu de colocar seu endereço!"

END IF

IF city = "" THEN

errorForm "Você esqueceu de colocar sua cidade!"

END IF

IF cep = "" THEN

errorForm "Você esqueceu de colocar seu CEP!"

END IF

IF estado = "" THEN

errorForm "Você esqueceu de colocar seu estado!"

END IF

IF fone = "" THEN

errorForm "Você esqueceu de colocar seu telefone!"

END IF

%>

<!--#include file="openbanco.asp"-->

<%

' Add New User to Database

sqlString = "INSERT INTO users ( user_username, user_password, user_name, user_email, user_street, user_bairro, user_city, user_zip, user_state, user_kennel, user_club, user_criador, user_handler, user_prop, user_juiz, user_dirigente, user_data, user_phone ) VALUES ( " &_

" '" & newusername & "', " &_

" '" & newsenha & "', " &_

" '" & nome & "', " &_

" '" & email & "', " &_

" '" & ender & "', " &_

" '" & bairro & "', " &_

" '" & city & "', " &_

" '" & cep & "', " &_

" '" & estado & "', " &_

" '" & canil & "', " &_

" '" & kennel & "', " &_

" '" & criador & "', " &_

" '" & dirigente & "', " &_

" '" & handler & "', " &_

" '" & juiz & "', " &_

" '" & proprie & "', " &_

" '" & fone & "')"

Con.Execute sqlString

' Use the new username and password

username = newusername

password = newsenha

' Add Cookies

addCookie "username", username

addCookie "password", password

END SUB

FUNCTION invalidEmail( email )

IF INSTR( "@" ) = 0 OR INSTR( "." ) = 0 THEN

invalidEmail = TRUE

ELSE

invalidEmail = FALSE

END IF

END FUNCTION

FUNCTION alreadyUser( theUsername )

sqlString = "SELECT user_username FROM users " &_

"WHERE user_username='" & fixQuotes( theUsername ) & "'"

SET RS = Con.Execute( sqlString )

IF RS.EOF THEN

alreadyUser = FALSE

ELSE

alreadyUser = TRUE

END IF

RS.Close

END FUNCTION

%>

[Reginaldo ASP]

Assim fica difícil... em qual linha tá dando erro?

[rcnery]

O problema é esse, não ta me retornando com erro, somente a mensagem de erro interno no servidor.

endereço se você quizer da uma olhada é

www.bestinshow.com.br/cadastro.asp

www.bestinshow.com.br/cadastromanager.asp

Obrigado por tentar me ajudar

[Reckless]

Cara no ASP você não pode variar a forma escrita do codigo

você sabe como o ASP é todo cheio de @$%#$ não é???

Tipo você ta usando a variavel TRIM não é?. Entaum porque você ta colocando TRIM e trim, coloca so TRIM com letra maiúscola e va beber uma 51

Ele não esta buscando o request.form de alguns campos, pior q as vezes nem é isso mas vamos la !

bjokas!!!

Reckless

icq84953140

[rcnery]

Obrigado pessoal, eu estava cometendo alguns erros simples de acesso ao BD