Diseño de sitios web en Panama - Novelpages - Hospedaje, Mantenimiento, promoción por email, hosting

<% If request.form("Submit") = "Enviar" Then 'Envio de Email con informacion del cliente, diseño de página strasunto= "------------ C O N T A C T O ------------" & vbCrlf & "Nombre: " & request.form("tnombre") & vbCrlf & "Email: " & request.form("temail") & vbCrlf & "Nombre de la Compañía: " & request.form("tcompania") & vbCrlf & "Fax: " & request.form("tfax") & vbCrlf & "País: " & request.form("textpais") & vbCrlf & "Teléfono: " & request.form("ttelefono") & vbCrlf & "------------ I N F O R M A C I Ó N D E D I S E Ñ O ------------" & vbCrlf & "¿Tiene el nombre de su empresa registrado?: "& request.form("radiobutton1") & vbCrlf & "¿Si no tiene su nombre registrado cuál le gustaría tener (dirección URL que desea que le coticemos)?: "& request.form("texturl") & vbCrlf & "Tiene usted página: " & request.form("radiobutton") & vbCrlf & "Propósito del sitio: " & request.form("tproposito") & vbCrlf & "¿Ha visto alguna página que tenga el aspecto o efecto que le gustaría para su sitio? Por favor suminístrenos la dirección: " & request.form("textdemo") & vbCrlf & "No esta disponible en la lista: " & request.form("tproposito1") & vbCrlf & "Aproximadamente, ¿Cuántas páginas tendrá su sitio?: " & request.form("textcant") & vbCrlf & "---------- T I E N E D I S P O N I B L E ---------- " & vbCrlf & "El logo de la empresa: " & request.form("radiobutton2") & vbCrlf & "Fotografía e imágenes de la empresa: " & request.form("radiobutton3") & vbCrlf & "El texto que desea para las páginas:" & request.form("radiobutton4") & vbCrlf & "Comentarios: " & request.form("tcomentario") if strasunto <> " " then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = request.form("temail") Mailer.RemoteHost = "localhost" Mailer.AddRecipient "Info NovelPages", "info@novelpages.com" Mailer.AddCC "Manuel Ruiz", "webmastermri@deltaingenieria.com" Mailer.AddCC "LUIS HERRERA", "webmaster@dulceriamomi.com" Mailer.Subject = "Formulario:*** COMO EMPEZAR EL DISEÑO DE SU PÁGINA ***" Mailer.BodyText = strasunto Mailer.DateTime= Now if Mailer.SendMail then response.write"Datos enviados.

" & vbCrLf End if end if end if %>

INFORMACIÓN DEL CONTACTO

Nombre	<%=request.form("nom")%>
Email	<%=request.form("email")%>
Nombre de la Compañía	<%=request.form("nomcia")%>
Teléfono	<%=request.form("tel")%>
Fax	<%=request.form("fax")%>
País	<%=request.form("pais")%>

REGISTRO DE DOMINIO

¿Desea registrar el nombre de su empresa? <%=request.QueryString("domi")%>
¿Cuál nombre le gustaría tener registrado (dirección URL que desea que le coticemos)? <%=request.QueryString("domi1")%>

DISEÑO DE PÁGINAS
¿ Tiene usted un sitio web?	<%=request.QueryString("dp")%>
Propósito del sitio	<%=request.QueryString("dp1")%>
Página Principal	<%=request.QueryString("dp2")%>
Sub-Páginas Interiores	<%=request.QueryString("dp3")%>
Administración	<%=request.QueryString("dp5")%>
Animaciones	<%=request.QueryString("dp6")%>
¿Ha visto alguna página que tenga el aspecto o efecto que le gustaría para su sitio? Por favor suminístrenos la dirección: <%=request.QueryString("dp7")%>
Tiene disponible
El logo de la empresa:	<%=request.QueryString("dp8")%>
Fotografía e imágenes de la empresa: <%=request.QueryString("dp9")%>
Si desea que nosotros tomemos las fotos...Cuántas serían?: <%=request.QueryString("dp10")%>
El texto que desea para las páginas: <%=request.QueryString("dp11")%>
HOSPEDAJE
Tipo de hospedaje deseado	<%=request.QueryString("host")%>

COMENTARIOS O SUGERENCIAS
Comentarios	<%=request.QueryString("com")%>
COSTO DEL PROYECTO
<% If request.querystring("domi")= "NO" Then response.write "REGISTRO DE DOMINIO(1): $35" suma = 35 End if If request.querystring("dp2")<> "0" Then response.write "PÁGINA PRINCIPAL (" & request.querystring("dp2") &"): $" & (int(request.querystring("dp2")) 65) suma = suma + (int(request.querystring("dp2")) 65) end if If request.querystring("dp3")<> "0" Then response.write "SUB-PÁGINAS INTERIORES (" & request.querystring("dp3") &"): $" & (int(request.querystring("dp3")) 65) suma = suma + (int(request.querystring("dp3")) 65) end if if request.querystring("host") = "Bulb" Then response.write "HOSPEDAJE DEL SITIO: $15 mensuales" suma = suma + 15 end if if request.querystring("host") = "Ligth" Then response.write "HOSPEDAJE DEL SITIO: $20 mensuales" suma = suma + 20 end if if request.querystring("host") = "Normal" Then response.write "HOSPEDAJE DEL SITIO: $25 mensuales" suma = suma + 25 end if if request.querystring("host") = "Typical" Then response.write "HOSPEDAJE DEL SITIO: $35 mensuales" suma = suma + 35 end if if request.querystring("host") = "Extra" Then response.write "HOSPEDAJE DEL SITIO: $45 mensuales" suma = suma + 45 end if if request.querystring("host") = "Super" Then response.write "HOSPEDAJE DEL SITIO: $50 mensuales" suma = suma + 50 end if if request.querystring("host") <> "Ninguno" Then response.write "CONFIGURACION DE HOSPEDAJE: $35 Pago Unico" suma = suma + 35 end if if request.querystring("dp10") <> "0" Then response.write "TOMA DE FOTOGRAFIAS(" & request.querystring("dp10") &"): $" & (int(request.querystring("dp10")) 4) suma = suma + (int(request.querystring("dp10")) 4) end if %>
COSTO TOTAL DEL PROYECTO: <%=suma%>



Registrar su propio dominio