Defendemos Nuestro Lugar y Medios de Vida

<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_cmshic_STRING MM_editCmd.CommandText = "INSERT INTO media_contacts (media, web, email, reporter, country, ip, [language], message) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 200, Request.Form("media")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 200, Request.Form("web")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 100, Request.Form("reporter")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 200, Request.Form("country")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("ip")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("laguage")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 203, 1, 536870910, Request.Form("message")) ' adLongVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close End If End If %> <% '----------------------------------------------------------------------------------------- If (CStr(Request("MM_insert")) = "form1") Then '------- send the email ----------------------------------------- Set JMail = Server.CreateObject("JMail.Message") JMail.Logging = false JMail.ISOEncodeHeaders = True JMail.From = "hic@hic-net.org" JMail.Subject = "Media contact - SPANISH" wBody = "Date/time: "&now&chr(10)&chr(13) wBody = wBody & "IP Address: "&request.ServerVariables("REMOTE_ADDR")&chr(10)&chr(13) wBody = wBody &chr(10)&chr(13) wBody = wBody & "Media: "&request("media")&chr(10)&chr(13) wBody = wBody & "Web: "&request("web")&chr(10)&chr(13) wBody = wBody & "E-Mail: "&request("email")&chr(10)&chr(13) wBody = wBody & "Reporter: "&request("reporter")&chr(10)&chr(13) wBody = wBody & "Country: "&request("country")&chr(10)&chr(13) wBody = wBody & "Message: "&request("message")&chr(10)&chr(13) JMail.AddRecipient "dsinet@hotmail.com","name" Jmail.AddRecipientCC "mjimenez@hic-net.org" Jmail.AddRecipientCC "julio@hic-net.org" JMail.Body = wBody JMail.MailServerUserName = "hic@hic-net.org" JMail.MailServerPassWord = "bueras142" JMail.ContentType = "text/plain" JMail.Send("smtp.hic-net.org" ) if err.number <> 0 then response.write err.number & " " & err.description & "
" end if Set JMail = nothing end if '----------------------------------------------------------------------------------------- %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_hicmembers_STRING Recordset1.Source = "SELECT * FROM LookupCountry ORDER BY COUNTRY" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim mc Dim mc_cmd Dim mc_numRows Set mc_cmd = Server.CreateObject ("ADODB.Command") mc_cmd.ActiveConnection = MM_cmshic_STRING mc_cmd.CommandText = "SELECT * FROM media_contacts ORDER BY country" mc_cmd.Prepared = true Set mc = mc_cmd.Execute mc_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 mc_numRows = mc_numRows + Repeat1__numRows %> Defendemos Nuestro Lugar y Medios de Vida

Estamos reuniendo contactos en los medios de comunicación de todas las regiones para enviarles nuestros comunicados y otros anuncios sobre la campaña; Por favor participen en la creación de la lista completando el siguiente formulario:

¡Gracias!

<% If (CStr(Request("MM_insert")) <> "form1") Then %>

Nombre del Medio de Comunicación:
Sitio Web:
Correo Electrónico:
Nombre del Reportero:
País :	" />
Mensaje y otros Datos de Contacto (si están disponibles):

<% dim numbs(10) numbs(00)="/codes/0.gif" numbs(01)="/codes/1.gif" numbs(02)="/codes/2.gif" numbs(03)="/codes/3.gif" numbs(04)="/codes/4.gif" numbs(05)="/codes/5.gif" numbs(06)="/codes/6.gif" numbs(07)="/codes/7.gif" numbs(08)="/codes/8.gif" numbs(09)="/codes/9.gif" randomize random_number=int(rnd9)+1 randomize random_number2=int(rnd8)+1 randomize random_number3=int(rnd7)+1 randomize random_number4=int(rnd6)+1 randomstr=random_number&random_number2&random_number3&random_number4 %> Ingrese el código:

<% end if %> <% While ((Repeat1__numRows <> 0) AND (NOT mc.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 mc.MoveNext() Wend %>

Country	Media Email	From
<%=(mc.Fields.Item("country").Value)%>	<%=(mc.Fields.Item("email").Value)%>	<%=(mc.Fields.Item("media").Value)%>

<% Recordset1.Close() Set Recordset1 = Nothing %> <% mc.Close() Set mc = Nothing %>