მთავარი  |    ფორუმი  |    FAQ  |    წესები  |    კონკურსები  |    რეკლამა ჩვენთან  |    კონტაქტი

გამარჯობა, სტუმარო ( შესვლა | რეგისტრაცია )

 
Reply to this topicStart new topic
alchemist
პოსტი Dec 17 2006, 03:12 PM
პოსტი #1


აქტიური წევრი
***

ჯგუფი: რეგისტრირებული
პოსტები: 337
ნიკის ჩასმა
ციტატაში ჩასმა
მდებარეობა: Münster
წევრი №: 16



ცალკე თემას იმიტომ ვხსნი, რომ ეს საკითხი გაცდა ძველი თემის სათაურს
მოკლედ asp ახლა უკვე არის ასეთი:
პროგრამული კოდი
<%
DIM strTitle, strFirstname, strLastName, strPatronymic, strPosition, strNameoftheinstitution, strCountry, strEmail, strPhone, strFax, strPresntationtitle, strSession, Mail
strTitle=request.form("title")
strFirstname=request.form("firstname")
strLastName=request.form("lastname")
strPatronymic=request.form("patronymic")
strPosition=request.form("position")
strNameoftheinstitution=request.form("institution")
strCountry=request.form("country")
strEmail=request.form("email")
strPhone=request.form("phone")
strFax=request.form("fax")
strPresntationtitle=request.form("presentationtitle")
strSession=request.form("session")

DIM strMsgHeader
Set Mail = Server.CreateObject("CDO.Message")
Mail.Host = "mail.tsu.ge"
Mail.From = strEmail
Mail.AddAddress "****@tsu.ge"
Mail.AddCC "****@tsu.ge"
Mail.Subject = "ICSP: Online Form"
strMsgHeader = "This email was delivered from the ICSP Web registration form." & vbCrLf & vbCrLf
Mail.Body=strMsgHeader & "email: " & strEmail & vbCrLf & _
"First Name: " & strFirstName & vbCrLf & _
"Last Name: " & strLastName & vbCrLf & _
"Patronymic: " & strPatronymic & vbCrLf & _
"Position: " & strPosition & vbCrLf & _
"Name of the institution: " & strNameoftheinstitution & vbCrLf & _
"Country: " & strCountry & vbCrLf & _
"Email: " & strEmail & vbCrLf & _
"Phone: " & strPhone & vbCrLf & _
"Fax: " & strFax & vbCrLf & _
"Session: " & strSession & vbCrLf & _
"Presntationtitle: " & vbCrLf & strPresntationtitle
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN
Response.Write "There has been an error and your message could not be sent through email. Please try once again or try again later. " & Err.Description
END IF
%>

<P>
<%
Response.Write strFirstName & ",<br>"
Response.Write "Your message has been successfully sent."
%>,</P>


და გამოაქვს ასეთი ერორი
პროგრამული კოდი
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Host'
/test/send.asp, line 18

კიდევ რა მეშლება ნეტავი? (IMG:style_emoticons/default/sad.gif)
sos sos sos


--------------------
whenever people agree with me, I always feel I must be wrong
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
ამ თემას კითხულობს 1 მომხმარებელი (მათ შორის 1 სტუმარი და 0 დამალული წევრი)
0 წევრი:

 



მსუბუქი ვერსია ახლა არის: 10th August 2025 - 03:20 PM