<%@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" 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 %> Act Together - Housing for All!
latest issue      

We are collecting media contacts for all regions to send our press releases and other announcementes about the campaign. Please participate in building the media list by filling out the form below.

Thank you!

<% If (CStr(Request("MM_insert")) <> "form1") Then %>
Media Name :
Web-Site:
E-Mail:
Reporter Name:
Country :
Message & Other Contact Data (if available):  
<% 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(rnd*9)+1 randomize random_number2=int(rnd*8)+1 randomize random_number3=int(rnd*7)+1 randomize random_number4=int(rnd*6)+1 randomstr=random_number&random_number2&random_number3&random_number4 %> Type the validation code:
<% 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 %>