<%if request.form("B1") <> "Continuar" then %> Codetel

Nombre empresa: LABORATORIO SANCHEZ
Quiénes Somos? Una empresa farmacéutica, con la mayor capacidad productiva de la República Dominicana, fabricando mas de 50 millomes de unidades comerciales de medicamentos al año.
Dónde estamos? Santo Domingo, República Dominicana.
Productos y Servicios Ofrecemos una amplia gama de productos y servicios farmacéuticos, asegurando siempre la calidad de los mismos y la plena satisfacción de nuestros clientes, cuerpos médicos y consumidores.
Contactos: José Francisco Mercedes 829-426-6660
Gerente
Maria Antonia Paula Alvarez 809-878-7537
Enc. de Ventas
Juana Sanchez 809-584-0703
Links Importantes: Enc. de Ventas


Informaciones Adicionales: Voltaje: Alivia estados depresivos provocados, por la disminución de la actividad sexual. Causados por disfunción eréctil, baja potencia sexual y eyaculación precóz. !!ADQUIERELA EN TU FARMACIA MAS CERCANA, PARA SENTIR EL VOLTAJE DE TU PASION!!!!!!!!!!!!!!!
<% else Set objeto = Server.CreateObject("Membership.UserObjects") fusuario = objeto.Get("cn") mailbox = objeto.Get("mailboxlocation") folder = "" Set objMCISHash = CreateObject("MCIS.MBoxHash") strHashValue = objMCISHash.GetHashValue(fusuario) if right(mailbox, 1) = "1" then folder = "\\m30fileclus1c\pwpshare1\" & strHashValue & "\" & fusuario else folder = "\\m30fileclus2c\pwpshare2\" & strHashValue & "\" & fusuario end if Dim fs, ts, tr ForReading=1 Set fs = Server.CreateObject("Scripting.FileSystemObject") set tr = fs.OpenTextFile("d:\menu\miempresa\template.html", ForReading) set ts = fs.CreateTextFile(folder & "\welcome.htm") j= tr.Readall() j=replace(j,"LABORATORIO SANCHEZ",Request("Nombre")) j=replace(j,"E-M-A",Request("email")) j=replace(j,"D-I-R",Request("DIRECCION")) j=replace(j,"T-E-L",Request("TELEFONO")) j=replace(j,"O-B-J",Request("Objetivos")) j=replace(j,"E-D-U-1",Request("EDUCACION1")) j=replace(j,"E-D-U-2",Request("EDUCACION2")) j=replace(j,"E-D-U-3",Request("EDUCACION3")) j=replace(j,"I-D-I-1",Request("IDIOMAS1")) j=replace(j,"I-D-I-2",Request("IDIOMAS2")) j=replace(j,"I-D-I-3",Request("IDIOMAS3")) j=replace(j,"E-X-P",Request("EXPERIENCIAS")) j=replace(j,"H-A-B",Request("HABILIDADES")) ts.Writeline j ts.close folderc= folder & "\images" 'response.write folderc if not fs.folderExists(folderc) then fs.CreateFolder folderc end if fs.CopyFile "d:\menu\miempresa\images\*.*", folderc Response.Redirect "main.asp?folder=" & folder end if %>