Por que não funciona???

[turboibest 0]

Olá amigos

 

Sou novo com asp e preciso de uma ajudinha de vocês. Peguei na net um script de cartão virtual e o configurei. Ele funciona tudo certinho, cadastra novas categorias, cartão, etc. Usuário entra e escolhe um cartão, coloca o destinatário, visualiza o cartão com a mensagem, até ai tudo certinho. Quando o usuário clica em enviar, aparece uma pagina de erro escrito: HTTP 500: erro interno do servidor. O que pode ser??? Ai vai o código para vocês verem.

 

nome do arquivo: sendit.asp

<!--#include file="inccard.asp"--><!--#include file="incgenmail.asp"--><%' First of all lets just get all variablesDim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailToDim sOtherIdFunction Password_GenPass( nNoChars, sValidChars )	' nNoChars = length of generated password	' sValidChars = valid characters. If zerolength-string 	'     default is used: A-Z AND a-z AND 0-9	Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"	Dim nCount	Dim sRet	Dim nNumber	Dim nLength	Randomize 'init random 	If sValidChars = "" Then  sValidChars = szDefault  	End If	nLength = Len( sValidChars )		For nCount = 1 To nNoChars  nNumber = Int((nLength * Rnd) + 1)  sRet = sRet & Mid( sValidChars, nNumber, 1 )	Next	Password_GenPass = sRet	End FunctionnCardId = Request.Form("fldAuto")if nCardId = "" Then	Response.Redirect "."End If'Ok...sNameTo = Request.Form("nameto")sNameFrom = Request.Form("namefrom")sEmailFrom = Request.Form("emailfrom")sEmailTo = Request.Form("emailto")sGreeting = Request.Form("greeting")sText = Request.Form("S1")sBGColor = Request.Form("BgColor")sTextColor = Request.Form("TColor")'Save it to databaseDim oRSSet oConn = PostCard_GetDatabaseConn()oConn.Execute "update " & Postcard_GetTablePrefix() & "card set sendcount=sendcount+1 where fldAuto=" & nCardIdSet oRS = Server.CreateObject("ADODB.Recordset")If Postcard_GetDatabaseType() = "Access" Then	oRS.Open "select fldAuto, cardid, nameto, namefrom, emailto, emailfrom, greeting, otherid, bgcolor, textcolor, stext from " & Postcard_GetTablePrefix() & "createdpostcards where fldAuto=-1 " ,oConn ,adOpenKeyset,adLockOptimisticElse	oRS.CursorLocation = adUseClient	oRS.Open "select fldAuto, cardid, nameto, namefrom, emailto, emailfrom, greeting, otherid, bgcolor, textcolor, stext from " & Postcard_GetTablePrefix() & "createdpostcards where fldAuto=-1 " ,oConn ,adOpenDynamic,adLockOptimisticEnd If	oRS.AddNewoRS("cardid") = nCardIdoRS("nameto") = sNameTooRS("namefrom") = sNameFromoRS("emailto") = sEmailTooRS("emailfrom") = sEmailFromoRS("greeting") = sGreetingoRS("stext") = sTextoRS("bgcolor") = sBGColoroRS("textcolor") = sTextcolorsOtherId = Password_GenPass( 10, "" )oRS("otherid")= sOtherIdoRS.UpdateDim IDToSendIDToSend = sOtherId & oRS("fldAuto").ValueoRS.CloseSet oRS = NothingoConn.CloseSet oConn = NothingstrMsgHeader = sNameFrom & "(" & sEmailFrom & ")" & " has sent you a postcard!" & vbCrLf strMsgHeader = "The address to pick it up is : " & GetPathToPickupScript() & "?cardid=" & IDToSendstrMsgFooter = vbCrLf & vbCrLf  & "This card was sent and created with the postcardservice at http://www.aspcode.net" Dim sErr sErr = SendEmail( Postcard_GetmailServer(), Postcard_GetmailFrom(), CStr(sEmailTo), sNameFrom & " has sent you a postcard", strMsgHeader & strMsgFooter )If sErr = "" Then     Response.Redirect "thanks.asp"     Response.Flush     Response.End  else     ' Message send failure     Response.Write ("An error has occurred.<BR>")     ' Send error message     Response.Write ("The error was " & sErr)  End If%>

 

Desde já, obrigado

[dw_man 0]

beleza turboibest,A página esta com um erro no código, sendo que este erro não esta podendo ser identificado porque seu browser esta mostrando uma mensagem amigável, ou seja qualquer erro que der no código fonte de uma página, ele ira mostrar uma mensagem que seja de entendimento para leigos, usuários normais que não entende nada de programação, essa opção de mostra essa mensagem já ve, de default do IE feita pela Microsof.Sendo assim, primeiro precisamos identificar o erro, para isso você precisa desmarcar a opção "MOSTRAR MENSAGEM DE ERRO HTTP AMIGÁVEL".Procedimento:Abra uma seu IE(Internet Explore), localize no menu a opção FERRAMENTAS, depois OPÇÕES DA INTERNET..., depois localize a guia AVANÇADAS, dentro desta guia você deve procurar o itém MOSTRAR MENSAGEM DE ERRO HTTP AMIGÁVEL e desmarcar essa opção. Feito isso faça o mesmo procedimento no sistema de cartão virtual e veja qual o erro esta dando e post aqui no Fórum.PatrickDw-man

[turboibest 0]

Ele da o seguinte erro:

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/1.1/site/cards/incgenmail.asp, line 4

 

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

 

aqui vai o arquivo que está especificado acima:

 

<%Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )  Dim objMail  set objMail = server.createobject("SMTPsvg.Mailer")  objMail.FromName = sFromEmail  objMail.FromAddress = sFromEmail  objMail.RemoteHost = sEmailServer  objMail.AddRecipient sToEmail, sToEmail  objMail.Subject = sSubject  objMail.BodyText = sText  if objMail.SendMail then    SendEmail = ""  else     ' Message send failure     SendEmail = objMail.Response  end if  Set objMail = nothing End Function%>

 

Desde já obrigado