<% Dim updBd, objBd, selBd Dim rec,rec1 validar = Request.Form("validar") nombre = request.Form("nombre") apellido = request.Form("apellido") direccion = request.Form("direccion") colonia = request.Form("colonia") ciudad = request.Form("ciudad") telefono = request.Form("telefono") correo = request.Form("correo") emppar = request.Form("emppar") giro = request.Form("giro") tipocom = request.Form("tipocom") strCc = request.Form("strCc") comentmp = Request.Form("comentmp") dia = DatePart("D", Date) mes = DatePart("M", Date) ano = DatePart("YYYY", Date) fecha = dia & "/" & mes & "/" & ano %>

<% ' ' V a l i d a c i o n ' If Left(validar,7) = "Guardar" Then estatus_error = 0 If Len(trim(nombre)) = 0 Then Response.write "
  Pregunta 1 .- Debes de teclear tu nombre
" estatus_error = 1 End If If Len(trim(apellido)) = 0 Then Response.write "
  Pregunta 2 .- Debes de teclear tu apellido
" estatus_error = 1 End If If Len(trim(correo)) = 0 Then Response.write "
  Pregunta 7 .- Debes de teclear tu correo
" estatus_error = 1 End If If Len(trim(tipocom)) = 0 Then Response.write "
  Pregunta 10 .- Debes de seleccionar el tipo de comentario
" estatus_error = 1 End If If Len(trim(comentmp)) = 0 Then Response.write "
  Pregunta 11 .- Debes de teclear el comentario
" estatus_error = 1 End If End if ' ' F i n V a l i d a c i o n ' %> <% If Left(validar,7) = "Guardar" AND estatus_error = 0 Then Dim iCount Dim I Dim selBD2 Dim rec2 correo = Lcase(correo) comentmp = Lcase(comentmp) cadena = "SELECT folio FROM folios WHERE clave='formcont';" Set selBDF0 = Server.CreateObject ("ADODB.Connection") selBDF0.Open "DSN=BDMazamitlaPM;" Set recF0 = selBDF0.Execute(cadena) if NOT(recF0.eof) then recF0.MoveFirst iCount = trim(recF0("folio")) set selBDF1 = Server.CreateObject("ADODB.Connection") selBDF1.Open "DSN=BDMazamitlaPM;" Set recF1 = selBDF1.Execute("UPDATE folios SET folio=IIF(folio=9999999999,0,folio+1) WHERE clave='formcont';") Else Set selBDF1 = Server.CreateObject("ADODB.Connection") selBDF1.Open "DSN=BDMazamitlaPM;" cadena="INSERT INTO folios (clave,folio,desc) VALUES ('formcont',2,'Consecutivo Forma de Contacto');" Set recF1 = selBDF1.Execute(cadena) iCount=1 End If recF0.Close Set recF0 = Nothing id = iCount fecha_reg = date tmpfecha_reg = Month(fecha_reg)&"/"&Day(fecha_reg)&"/"&Year(fecha_reg) comentmp1=Replace(Replace(trim(comentmp),Chr(10),"@"),Chr(13),"") comen = Mid(comentmp1,1,254) If Len(comen)= 0 Then comen=" " End If Set selBD2 = Server.CreateObject("ADODB.Connection") selBD2.Open "DSN=BDMazamitlaPM;" Set rec2 = selBD2.Execute("INSERT INTO regcomen (id,fecha_reg,nombre,apellido,direccion,colonia,ciudad,telefono,correo,emppar,giro,tipocom,comen) VALUES (" & id & ",{" & tmpfecha_reg & "},'" & trim(nombre) & "','" & trim(apellido) & "','" & trim(direccion) & "','" & trim(colonia) & "','" & trim(ciudad) & "','" & trim(telefono) & "','" & trim(correo) & "','" & trim(emppar) & "','" & trim(giro) & "'," & trim(tipocom) & ",'" & comen & "');") %> <% Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby, objCDOMail strTo = correo strSubject = "Comentarios en Mazamitla Pueblo Magico" ' This is multi-lined simply for readability strBody = "Datos del registro de comentarios: " & vbCrLf strBody = strBody & vbCrLf strBody = strBody & " Fecha de registro : " & fecha & vbCrLf strBody = strBody & " Numero de Registro : " & id & vbCrLf strBody = strBody & " Nombre : " & nombre & vbCrLf strBody = strBody & " Apellido : " & apellido & vbCrLf strBody = strBody & " Empresa/Particular : " & emppar & vbCrLf strBody = strBody & " Telefono : " & telefono & vbCrLf strBody = strBody & " Comentarios : " & comentmp & vbCrLf strBody = strBody & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "Tu solicitud o comentario se atendera a la brevedad. !! " & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.mazamitlapueblomagico.com.mx" &vbCrLf strBody = strBody & vbCrLf strBody = strBody & " WEBMASTERS Mazamitla Pueblo Magico" strBody = strBody & vbCrLf Set selBd = Server.CreateObject ("ADODB.Connection") selBd.Open "DSN=BDMazamitlaPM;" Set rec0 = selBd.Execute("SELECT * FROM correoweb ORDER BY id;") If Not(rec0.EOF) Then rec0.MoveFirst While Not rec0.EOF If rec0("id") = "1" Then web = trim(rec0("correo")) Else correoweb = trim(rec0("correo"))&","&correoweb bandcorreo=1 End If rec0.MoveNext WEnd End If rec0.Close Set rec0 = Nothing If bandcorreo=1 Then correoweb = Mid(correoweb,1,Len(correoweb)-1) correoweb = correoweb&","&strCc Else correoweb = strCc End If Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Home Mazamitla Pueblo Magico <"& web &">" objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Cc = correoweb 'objCDOMail.Bcc = "" objCDOMail.Send Set objCDOMail = Nothing %> <% Else %> <% End if %> <% If Left(validar,7) = "Guardar" AND estatus_error = 0 then %>

<% End if%> <% If validar = "" Then %>

1.-Nombre:

2.-Apellido:

3.-Direccion:

4.-Colonia:

5.-Ciudad:

6.-Telefono:

7.-Correo:

8.-Empresa/Particular:

9.-Giro:

10.-Tipo Comentario:

<% Dim tipocom() Set selBD = Server.CreateObject ("ADODB.Connection") selBD.Open "DSN=BDMazamitlaPM;" Set rec = selBD.Execute("SELECT * FROM tipocom ORDER BY cve_com;") If Not(rec.bof) Then rec.MoveFirst M = 0 While Not rec.EOF ReDim Preserve tipocom(2,M+1) tipocom(0,M) = cInt(rec("cve_com")) tipocom(1,M) = trim(rec("desc_com")) M = M + 1 rec.MoveNext WEnd regtipocom = M End If rec.Close Set rec = Nothing %> --- Selecciona una Opción --- <% For M = 0 to regtipocom-1 %> <%=tipocom(1,M)%> <% Next %>

11.-Comentarios:

<%=trim(comentmp)%> Dispone de caracteres

<%Response.write "** Gracias por mandar tu comentario, este se atendera a la brevedad **"%>


<%Response.write "LA OPERACION HA SIDO COMPLETADA CON EXITO...."%>