فتوى آن لائن - دار الافتاء جامعہ بنوريہ
FATWA ONLINE DAR-UL-IFTA JAMIA BINORIA
Frequently Asked Questions And Answers
اردو رسم الخط ميں تحرير كئے گئے سوالات كا جواب جلد ارسال كيا جاتا ہے
آپ اگر فائل كركےبهيجنا چاہتے ہيں تو اميج يا پى ڈى ايف فارميٹ كے بجائے اوريجنل ٹيكسٹ ڈاكومينٹ جيسے ان پيج يا ورڈ كي فائل ہى بهيجيں
| <% IF request.form ("Message")="True" THEN strTB1=Date strTB2=request.form("txt_name") strTB3=request.form("txt_address") strTB4=request.form("txt_contact") strTB5=request.form("txt_email") strTB6=request.form("txt_subject") strMB1=request.form("txt_question") IF strMB1 = "" THEN iLenMB1=255 ELSE iLenMB1 = Len(strMB1) END IF strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\sites\Pungo6\naeemfiji\database\Fatawa.mdb;" set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider set cm = Server.CreateObject("ADODB.Command") cm.ActiveConnection = objConn cm.CommandText ="INSERT INTO fatawa (ReceivedOn,Name,Address,ContactNo,Email,Subject,Question)VALUES (?,?,?,?,?,?,?)" set objparam=cm.createparameter(, 200, , 30, strTB1)'ReceivedOn cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 30, strTB2)'Name cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 35, strTB3)'Add cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 20, strTB4)'ContactNo cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 35, strTB5)'Email cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 35, strTB6)'Subject cm.parameters.append objparam set objparam=cm.createparameter(, 201, , iLenMB1, strMB1)'Question cm.parameters.append objparam cm.execute response.write("Thank you! آپ کا سوال موصول هو چکا هے") ELSE%> | |
| <%End if%> |
ہمارا مسلك