Solicite Turno

<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim ObjMail Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "De~Estudio~fecha~Nombre~Apellido~Cedula~Edad~Medico~Horario~Observacion~Movil~Email" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set ObjMail = CreateObject("CDO.Message") 'Sección para setear la información del remote SMTP server. ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.webdesign.com.py" ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' El servidor requiere autenticación por lo que seteamos valid email address and password. ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="webinfo@webdesign.com.py" ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="web2013web" ObjMail.Configuration.Fields.Update 'Fin de Sección para usar remote SMTP server== ObjMail.From = "turno.diagnostico@lacosta.com.py" ObjMail.To = "callcenter1@lacosta.com.py; callcenter2@lacosta.com.py; callcenter3@lacosta.com.py; callcenter4@lacosta.com.py; callcenter5@lacosta.com.py; callcenter6@lacosta.com.py; callcenter7@lacosta.com.py" ObjMail.Cc = "turno.diagnostico@lacosta.com.py; norma.argana@lacosta.com.py; turno1.diagnostico@lacosta.com.py" ObjMail.Bcc = "lisa@webdesign.com.py" ObjMail.Subject = "Reserva Estudio de Radiologia" BodyString = Replace("Reserva Estudio de Radiologia~*************************************","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If ObjMail.TextBody = BodyString ObjMail.Send Set ObjMail = Nothing RedirectURL = "respon.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Solicite Turno

Radiografía

HORARIO PARA RESERVAS VIA WEB:
Lunes a Viernes 07:00hrs a 18:00hrs y Sábados de 07:00hrs a 12:00hrs.
Si Ud. desea solicitar una cita, por favor complete el siguiente formulario:
*Todos los datos son requeridos.