gts989

Hi to all what can i used for the asp code in php.ASP = objInfo.Messages sMSG I have this now $objInfo-> Messages$sMSG; in my php but script dosnt run past that section.

Hey justsomeguy how can fix these errors.??Warning: session_start() [function.session-start]: open(C:\DOCUME~1\NK\LOCALS~1\Temp\php\upload\sess_dvkmesiljra4kdmvbcmrisknr5, O_RDWR) failed: No such file or directory (2) in C:\Data\DataMMHome\ENGLISH\menuMM.php on line 17 (this line is at - session_start)Warning: Unknown: open(C:\DOCUME~1\NK\LOCALS~1\Temp\php\upload\sess_dvkmesiljra4kdmvbcmrisknr5, O_RDWR) failed: No such file or directory (2) in Unknown on line 0Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct (C:\DOCUME~1\NK\LOCALS~1\Temp\php\upload) in Unknown on line 0

I didn't get on error but i think the data base got some thing to do with the problem i'm trying to make odbc connection for ms access.

ASP Code ---> <%@ LANGUAGE="VBSCRIPT"%><%Response.Expires = 0%><%' 1. menuMM.asp?room=%rn%&unitaddress=%unitno%&portno=%pn%&language=%LanguageID% //Usual main menu except checking if there is a message for this room.' Use the table: tblMessage' Result:' Create the Main Menu based on the template file tempMM.html%><%Dim objDBDim strSQLDim strRoomNumDim sUnitNoDim sLanguageIDdim sPortNoDim boolNewMSGdim boolInfo'Dim boolNewRoom' Setup Database Connection Set objDB = Server.CreateObject("ADODB.Connection")objDB.Open "DSN=DataDB;uid=;pwd="strRoomNum = Request.QueryString("room") & ""sUnitNo = Request.QueryString("unitaddress") & ""sLanguageID = Request.QueryString("language") & ""sPortNo = Request.QueryString("portno") & ""if (sLanguageID <> "Language1") or (sLanguageID <> "Language2") or (sLanguageID <> "Language3") or (sLanguageID <> "Language4") or (sLanguageID <> "Language5") then sLanguageID = "Language1" 'for testing and default settingend if'boolNewRoom = false'session("NewRoom") = False ' used ans set in Account Review /Checkout. 2002.7.8if (strRoomNum <> session("RoomNo")) then 'boolNewRoom = true session("NewRoom") = trueend if'Save these variables as GlobestrSQL = "Select OfficeLanguage, PMSType from tblHotelInfo "set objRecordSet = objDB.Execute(strSQL)'For globe usesession("OfficeLanguage") = objRecordSet(0)session("PMSType") = Trim(UCase(objRecordSet(1))) '2002.7.9session("RoomNo") = strRoomNumsession("UnitNo") = sUnitNosession("PortNo") = sPortNosession("LanguageID") = sLanguageIDobjRecordSet.Closesession("menuMM") = "menuMM.asp?room=" & strRoomNum & "&unitaddress=" & sUnitNo & "&portno=" & sPortNo & "&language=" & sLanguageIDstrSQL = "Select MessageID from tblMessage where MessageDelivered = No and RoomNum = '" & strRoomNum & "'"set objRecordSet = objDB.Execute(strSQL)if objRecordSet.eof then boolNewMSG = Falseelse boolNewMSG = Trueend ifobjRecordSet.Close'strSQL = "Select AccountNum, GuestName, Checkout from tblGuestInfo where Room = '" & strRoomNum & "'"strSQL = "Select AccountNum, GuestName, Checkout from tblGuestInfo where Room = '" & strRoomNum & "'"set objRecordSet = objDB.Execute(strSQL)boolInfo = Truesession("AccountNo") = ""session("GuestName") = ""'session("BarServices") = True ' This has the top priority over Password. only for HIS, Spectrodyne. changed againSet objInfo = Server.CreateObject("ASPComProj.ASPCom1") ' request for refreshment of every account info in this room for Spectradyne! 2002.7.5'Send MSG to PMS While not objRecordSet.eof if (objRecordSet(2) = False) then ' Moved to Account Review/checkout. 2002.7.8 'if boolNewRoom then 'sMSG = "A|RINFO|ACC|RN" & strRoomNum & "|GN" & objRecordSet(0) & "|" ' Account that didn't check out 'objInfo.Messages sMSG 'end if if (trim(objRecordSet(0)) <> "") then boolInfo = False session("AccountNo") = objRecordSet(0) & "" session("GuestName") = objRecordSet(1) & "" 'If objRecordSet(1) is null, the type is uncertain. 'session("BarServices") = objRecordSet(3) 'New requirement. By-product for other pages to use like questionnaire.asp end if end if objRecordSet.MoveNext Wend'Send MSG to PMS when this is the first start of the system.if boolInfo and (strRoomNum <> "0" ) then 'sMSG = "A|RINFO|UN" & sPortNo & "|" sMSG = "A|PMS|LOOK|RN" & strRoomNum & "|" objInfo.Messages sMSG Response.redirect "GeneralSorry.html"end ifobjInfo.closeset objInfo = nothingobjRecordSet.CloseSet objRecordSet = NothingobjDB.CloseSet objDB = Nothing' Make the Main MenuDim strLineDim objFileDim ForReadingDim strFileNamedim fileModel'InitializationstrLine = ""Set objFile = CreateObject("Scripting.FileSystemObject")ForReading = 1strFileName = server.MapPath("menuMM.html")if not objFile.FileExists(strFileName) then 'Miss the template file tempMM.html Response.Redirect session("menuMM")end ifSet fileModel = objFile.OpenTextFile(strFileName,ForReading,true)while not fileModel.AtEndOfStream strLine = fileModel.readline() if InStr(strLine, "%Message%") then if boolNewMSG then response.write Replace(strLine, "%Message%", "") else response.write "" end if elseif InStr(strLine, "BTN") then response.write Replace(strLine, "%LanguageID%", sLanguageID) else response.write strLine end if response.write chr(10) wendfileModel.Closeset fileModel = nothing'objFile.Closeset objFile = nothing%>PHP ----> <? session_start(); session_register("RoomNo_session"); session_register("NewRoom_session"); session_register("OfficeLanguage_session"); session_register("PMSType_session"); session_register("UnitNo_session"); session_register("PortNo_session"); session_register("LanguageID_session"); session_register("menuMM_session"); session_register("AccountNo_session"); session_register("GuestName_session");?><? // asp2php (vbscript) converted on Sun Jan 21 16:18:46 2007 ?><? header("Expires: " . gmdate("D, d M Y H:i:s", time() + (0*60)) . " GMT"); ?><? // 1. menuMM.asp?room=rrn&&unitaddress=uunitno&&portno=ppn&&language=LLanguageID //Usual main menu except checking if there is a message for this room.// Use the table: tblMessage// Result:// Create the Main Menu based on the template file tempMM.html?><? //Dim boolNewRoom// Setup Database Connection // $objDB is of type "ADODB.Connection"$objDB=mysql_connect("localhost","","");mysql_select_db("",$objDB);$strRoomNum=$_GET["room"]."";$sUnitNo=$_GET["unitaddress"]."";$sLanguageID=$_GET["language"]."";$sPortNo=$_GET["portno"]."";if (($sLanguageID!="Language1") || ($sLanguageID!="Language2") || ($sLanguageID!="Language3") || ($sLanguageID!="Language4") || ($sLanguageID!="Language5")){ $sLanguageID="Language1"; //for testing and default setting} //boolNewRoom = false//session("NewRoom") = False ' used ans set in Account Review /Checkout. 2002.7.8if (($strRoomNum!=$_SESSION['RoomNo'])){//boolNewRoom = true $_SESSION['NewRoom']=true;} //Save these variables as Globe$strSQL="Select OfficeLanguage, PMSType from tblHotelInfo ";$objRecordSet=$objRecordSet_query=mysql_query(($strSQL),$objDB);$objRecordSet=mysql_fetch_array($objRecordSet_query);;//For globe use$_SESSION['OfficeLanguage']=$objRecordSet[0];$_SESSION['PMSType']=trim(strtoupper($objRecordSet[1]))//2002.7.9;$_SESSION['RoomNo']=$strRoomNum;$_SESSION['UnitNo']=$sUnitNo;$_SESSION['PortNo']=$sPortNo;$_SESSION['LanguageID']=$sLanguageID;$_SESSION['menuMM']="menuMM.php?room=".$strRoomNum."&unitaddress=".$sUnitNo."&portno=".$sPortNo."&language=".$sLanguageID;$strSQL="Select MessageID from tblMessage where MessageDelivered = No and RoomNum = '".$strRoomNum."'";$objRecordSet=$objRecordSet_query=mysql_query(($strSQL),$objDB);$objRecordSet=mysql_fetch_array($objRecordSet_query);;if (($objRecordSet==0)){ $boolNewMSG=false;} else{ $boolNewMSG=true;} //strSQL = "Select AccountNum, GuestName, Checkout from tblGuestInfo where Room = '" & strRoomNum & "'"$strSQL="Select AccountNum, GuestName, Checkout from tblGuestInfo where Room = '".$strRoomNum."'";$objRecordSet=$objRecordSet_query=mysql_query(($strSQL),$objDB);$objRecordSet=mysql_fetch_array($objRecordSet_query);;$boolInfo=true;$_SESSION['AccountNo']="";$_SESSION['GuestName']="";//session("BarServices") = True ' This has the top priority over Password. only for HIS, Spectrodyne. changed again// $objInfo is of type "ASPComProj.ASPCom1"// request for refreshment of every account info in this room for Spectradyne! 2002.7.5//Send MSG to PMSwhile(!($objRecordSet==0)){ if (($objRecordSet[2]=false)) {// Moved to Account Review/checkout. 2002.7.8//if boolNewRoom then//sMSG = "A|RINFO|ACC|RN" & strRoomNum & "|GN" & objRecordSet(0) & "|" ' Account that didn't check out//objInfo.Messages sMSG//end if if ((trim($objRecordSet[0])!="")) { $boolInfo=false; $_SESSION['AccountNo']=$objRecordSet[0].""; $_SESSION['GuestName']=$objRecordSet[1].""//If objRecordSet(1) is null, the type is uncertain.;//session("BarServices") = objRecordSet(3) 'New requirement. By-product for other pages to use like questionnaire.asp } } $objRecordSet=mysql_fetch_array($objRecordSet_query);} //Send MSG to PMS when this is the first start of the system.if ($boolInfo && ($strRoomNum!="0")){//sMSG = "A|RINFO|UN" & sPortNo & "|" $sMSG="A|PMS|LOOK|RN".$strRoomNum."|"; $objInfo->Messages$sMSG; header("Location: "."GeneralSorry.html");} $objInfo->close;$objInfo=null;$objRecordSet=null;mysql_close($objDB);$objDB=null;// Make the Main Menu//Initialization$strLine="";// $objFile is of type "Scripting.FileSystemObject"$ForReading=1;$strFileName=$DOCUMENT_ROOT."menuMM.html";if (!file_exists($strFileName)){//Miss the template file tempMM.html header("Location: ".$_SESSION['menuMM']);} $fileModel=fopen($strFileName,"r");while(!feof($fileModel)){ $strLine=fgets($fileModel)(); if ((strpos($strLine,"%Message%") ? strpos($strLine,"%Message%")+1 : 0)) { if ($boolNewMSG) { print str_replace("%Message%","",$strLine); } else { print ""; } } else if ((strpos($strLine,"BTN") ? strpos($strLine,"BTN")+1 : 0)) { print str_replace("%LanguageID%",$sLanguageID,$strLine); } else { print $strLine; } print chr(10);} fclose($fileModel);$fileModel=null;//objFile.Close$objFile=null;?>

Hi to All I convert an asp to php but can't get the php to work can i post the asp and the php code to know where the code is going rong???