ASP to PHP

[sclarkstone]

Hi. i have this page in ASP that pulls an entered postcode and displays the apropriate details for that area and i need to translate it into PHP. can anyone help?
Im using a MySQL database.thank you for any help that you can give, much appreciated.

Function RemoveWhiteSpace(strText) 'function to remove white spaces from post code
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "\s+"
RegEx.Multiline = True
RegEx.Global = True
strText = RegEx.Replace(strText, "")
RemoveWhiteSpace = strText
End Function

Dim nptCode, nptDistrict, noVals, origPostCode

origPostCode = Request.Form("postcode") 'do not alter this value

If (origPostCode <> "") Then 'we've come from the postcode search page

Dim cleanPostCode, wiltsCode

wiltsCode=False 'is it a wiltshire post code (see select statement)
cleanPostCode = UCase(RemoveWhiteSpace(origPostCode))

Select Case Left(cleanPostCode,2)
Case "BA", "SN", "SP", "GL", "RG"
wiltsCode=True
Case Else
Response.Redirect("postcodesearch.asp?e=nw&pcode=" &Request.Form("postcode")&"")'go to post code error page with url extention (nw: not wiltshire)
End Select

If(wiltsCode)Then
Dim rs_pcode
Dim rs_pcode_cmd
Dim rs_pcode_numRows

Set rs_pcode_cmd = Server.CreateObject ("ADODB.Command")
rs_pcode_cmd.ActiveConnection = MM_maincms_STRING
rs_pcode_cmd.CommandText = "SELECT npt_code, dis_name FROM q_npt_pcodes WHERE UCASE(pc_postcode) = ?"
rs_pcode_cmd.Prepared = true
rs_pcode_cmd.Parameters.Append rs_pcode_cmd.CreateParameter("param1", 200, 1, 10, cleanPostCode) ' adVarChar

Set rs_pcode = rs_pcode_cmd.Execute
rs_pcode_numRows = 0
If(rs_pcode.BOF OR rs_pcode.EOF)Then
Response.Redirect("postcodesearch.asp?e=nf&pcode=" &Request.Form("postcode")&"")'go to post code error page with url extention (nf: not found)
Else
nptCode=(rs_pcode.Fields.Item("npt_code").Value)
nptDistrict=(rs_pcode.Fields.Item("dis_name").Valu e)

Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_maincms_STRING
MM_editCmd.CommandText = "INSERT INTO t_pcode_searches (pcsearch_pc, pcsearch_outcome, pcsearch_stamp, pcsearch_ip) VALUES (?,?,?,?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 10, Request.Form("postcode")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 10, "ok") ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 135, 1, 50, Now()) ' date
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.ServerVariables("REMOTE_ADDR")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If

Else ' we've come from the map page

'get url params
nptCode=UCase(Request.QueryString("id"))
nptDistrict=LCase(Request.QueryString("district"))
'set district to correct value
Select Case nptDistrict
Case "salisbury"
nptDistrict="Salisbury"
Case "swindon"
nptDistrict="Swindon"
Case "nwilts"
nptDistrict="North Wiltshire"
Case "wwilts"
nptDistrict="West Wiltshire"
Case "kennet"
nptDistrict="Kennet"
Case Else
nptDistrict=""
End Select

End If

'set variable to check we have everything we need (used later)
If (nptCode="" Or nptDistrict="")Then
novals=True
End If


Dim xmlDoc
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async=false
xmlDoc.load(Server.MapPath("xml/nptdata.xml"))
xmlDoc.setProperty "SelectionLanguage", "XPath"

If xmlDoc.parseError.errorcode<>0 then
Response.Write(xmlDoc.parseError.errorcode)
Response.Write("</br>Error processing xml file")

End If


nodepath="/NPTInfo/District[@DistrictName='"&nptDistrict&"']/NPT[@NPTCode='"&nptCode&"']"
%>

[Markus]

Well, as rule goes, will we never just hand out code - feels like I'm saying this alot recently, and others, too. Anyway, what I can do is: refer you to some tutorials on mysql/php; but before that you might want to actually learn PHP.

I hope all goes well in your project.

ps. When you've shown some initiative and given us a show of how you'v had a go at this yourself, we'll be glad to help more!

pss. When posting code in the forum - ASP in this case - wrap it in [code] tags. Makes it alot easier to read.

[sclarkstone]

Sorry, i was hoping someone could translate it and then i could compare it to my attempt. here is my attempt, would you be able to take a look please?

[HTML]mysql_select_db($database_wpolconn, $wpolconn);
$query_rs_pcode = "SELECT npt_code, dis_name FROM q_npt_pcodes ";
$rs_pcode = mysql_query($query_rs_pcode, $wpolconn) or die(mysql_error());
$row_rs_pcode = mysql_fetch_assoc($rs_pcode);
$totalRows_rs_pcode = mysql_num_rows($rs_pcode);
?>
<?
function removeWhiteSpace($strText) { return preg_replace('~\s+~', '', $strText);} //function to remove white spaces from post code

$nptCode, $nptDistrict, $noVals, $origPostCode

origPostCode = @$GET ["postcode"]; //do not alter this value
If ($origPostCode ! =""){ //we've come from the postcode search page

$cleanPostCode, $wiltsCode;
}

$wiltsCode="False"; //is it a wiltshire post code (see switch statement )
$cleanPostCode = ucwords($RemoveWhiteSpace($origPostCode));

switch substr($cleanPostCode,0, 2); {
case "BA", "SN", "SP", "GL", "RG";
$wiltsCode="True";
default
header("postcodesearch.asp?e=nw&pcode="& @$_GET("postcode")&"");//go to post code error page with url extention (nw: not wiltshire)
}

if (!function_exists("GetSQLValueString")) {
function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "")
{
$theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue;

$theValue = function_exists("mysql_real_escape_string") ? mysql_real_escape_string($theValue) : mysql_escape_string($theValue);

switch ($theType) {
case "text":
$theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
break;
case "long":
case "int":
$theValue = ($theValue != "") ? intval($theValue) : "NULL";
break;
case "double":
$theValue = ($theValue != "") ? "'" . doubleval($theValue) . "'" : "NULL";
break;
case "date":
$theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
break;
case "defined":
$theValue = ($theValue != "") ? $theDefinedValue : $theNotDefinedValue;
break;
}
return $theValue;
}
}










//get url params
$nptCode= ucword(@$_GET("id"));
$nptDistrict= lcword(@$_GET("district"));
//set district to correct value
switch ($nptDistrict){
case "salisbury":
$nptDistrict="Salisbury"
case "swindon":
$nptDistrict="Swindon"
case "nwilts":
$nptDistrict="North Wiltshire"
case "wwilts":
$nptDistrict="West Wiltshire"
case "kennet":
$nptDistrict="Kennet"
default
$nptDistrict=""
}
}
//set variable to check we have everything we need (used later)
If ($nptCode=="" Or $nptDistrict==""){
$novals="True";
}

$xmlDoc
//Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") - not needed in PHP
//xmlDoc.async=false
//xmlDoc.load(Server.MapPath("xml/nptdata.xml"))
//xmlDoc.setProperty "SelectionLanguage", "XPath"

If $xmlDoc.parseError.errorcode<>0 {
echo "$xmlDoc.parseError.errorcode";
echo "</br>Error processing xml file";

}


nodepath="/NPTInfo/District[@DistrictName='"&nptDistrict&"']/NPT[@NPTCode='"&nptCode&"']"
%>
<?php
mysql_free_result($rs_pcode);
?>[/HTML]

[r035198x]

Have you tried it yet? Does it work?

[sclarkstone]

Yes i have tried it and unfortunatly it doesnt work.

[r035198x]

Yes i have tried it and unfortunatly it doesnt work.

Give more details. Do you get an error message?

[sclarkstone]

Ive made a few amends but still not working it gives the error Parse error: syntax error, unexpected '!' from this line:
[HTML]if ($origPostCode ! == ""){ //we've come from the postcode search page[/HTML]

i need the in there though because it is supposed to say is not equal to nothing.

[HTML]mysql_select_db($database_wpolconn, $wpolconn);
$query_rs_pcode = "SELECT npt_code, dis_name FROM q_npt_pcodes ";
$rs_pcode = mysql_query($query_rs_pcode, $wpolconn) or die(mysql_error());
$row_rs_pcode = mysql_fetch_assoc($rs_pcode);
$totalRows_rs_pcode = mysql_num_rows($rs_pcode);
?>
<?
function removeWhiteSpace($strText) { return preg_replace('~\s+~', '', $strText);} //function to remove white spaces from post code


$origPostCode = @$_GET ["postcode"]; //do not alter this value
if ($origPostCode ! == ""){ //we've come from the postcode search page




$wiltsCode="False"; //is it a wiltshire post code (see switch statement )
$cleanPostCode = ucwords($RemoveWhiteSpace($origPostCode));


switch substr($cleanPostCode,0, 2); {
case "BA", "SN", "SP", "GL", "RG";
$wiltsCode="True";
default
header("postcodesearch.asp?e=nw&pcode="& @$_GET("postcode")&"");//go to post code error page with url extention (nw: not wiltshire)
}

if (!function_exists("GetSQLValueString")) {
function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "")
{
$theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue;

$theValue = function_exists("mysql_real_escape_string") ? mysql_real_escape_string($theValue) : mysql_escape_string($theValue);

switch ($theType) {
case "text":
$theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
break;
case "long":
case "int":
$theValue = ($theValue != "") ? intval($theValue) : "NULL";
break;
case "double":
$theValue = ($theValue != "") ? "'" . doubleval($theValue) . "'" : "NULL";
break;
case "date":
$theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
break;
case "defined":
$theValue = ($theValue != "") ? $theDefinedValue : $theNotDefinedValue;
break;
}
return $theValue;
}
}










//get url params
$nptCode= ucword(@$_GET("id"));
$nptDistrict= lcword(@$_GET("district"));
//set district to correct value
switch ($nptDistrict){
case "salisbury":
$nptDistrict="Salisbury"
case "swindon":
$nptDistrict="Swindon"
case "nwilts":
$nptDistrict="North Wiltshire"
case "wwilts":
$nptDistrict="West Wiltshire"
case "kennet":
$nptDistrict="Kennet"
default
$nptDistrict=""
}
}
//set variable to check we have everything we need (used later)
if ($nptCode=="" Or $nptDistrict==""){
$novals="True";
}

$xmlDoc
//Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") - not needed in PHP
//xmlDoc.async=false
//xmlDoc.load(Server.MapPath("xml/nptdata.xml"))
//xmlDoc.setProperty "SelectionLanguage", "XPath"

if $xmlDoc.parseError.errorcode<>0 {
echo "$xmlDoc.parseError.errorcode";
echo "</br>Error processing xml file";

}


nodepath="/NPTInfo/District[@DistrictName='"&nptDistrict&"']/NPT[@NPTCode='"&nptCode&"']"
%>
<?php
mysql_free_result($rs_pcode);
?>[/HTML]

[r035198x]

!=

with one = sign.

[sclarkstone]

I just tried it and it is still giving the same error.

[r035198x]

I just tried it and it is still giving the same error.

Same error message on same line number?

[Markus]

!=

with one = sign.

!== would still work. It compares an exact match - type and value. It was the space that was causing the error.

[sclarkstone]

That sorted it, thanks. now im getting Parse error: syntax error, unexpected T_STRING on line 21.

[Jeigh]

That sorted it, thanks. now im getting Parse error: syntax error, unexpected T_STRING on line 21.

I think your problem is here:

switch substr($cleanPostCode,0, 2); {

The semi colon isn't needed I believe, so try:

switch substr($cleanPostCode,0, 2) {

[sclarkstone]

Just tried it, same error on the same line.

[Markus]

Just tried it, same error on the same line.

Change the switch statement to this, see if it helps.

$pc = array("BA", "SN", "SP", "GL", "RG");
if( in_array ( substr ($cleanPostCode, 0, 2 ), $pc)
    $wiltsCode="True";
else
    # header...
 

[pbmods]

Heya, SClarkstone.

Switch requires parenthesis. E.g.,

switch( substr($cleanPostCode,0, 2) )
{
 

[Markus]

Heya, SClarkstone.

Switch requires parenthesis. E.g.,

switch( substr($cleanPostCode,0, 2) )
{
 

Good spot!

[pbmods]

Good spot!

Woof !