ako nqkoj moze da kaze neshto ili da prati primeren script

Мъка си е ...

opitah edin script i poluchih:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed

scripta e:


<%
Response.buffer = TRUE
Response.ContentType = "application/x-msword"

Dim vntStream

Set oMyObject = Server.CreateObject("MyObject.BinRead")
vntStream = oMyObject.readBinFile("c:\docs\myfile.doc")

Response.BinaryWrite(vntStream)

Set oMyObject = Nothing

Response.End
%>

Мъка си е ...

Не се отчайвай значи... Бинарно четене става ей тъй:

Dim binread
Dim bytecount
bytecount = Request.TotalBytes
binread = Request.BinaryRead(bytecount)

За да не се отчайваш и друг път, горещо бих те посъветвал да почетеш още за ActiveX, например какво означава да създадеш OLE, как да го регистрираш и как може да се ползва. В твоя пример аз например силно се съмнявам че си създал и регистрирал ActiveX компонента с име "MyObject.BinRead" Оттам и цялото бездънно отчаяние и черна мъка...

чети и дишай по-леко

Ti se symnqwash, a az pyk sym siguren, che ne sym go registriral toq pust komponent. Ama zashto adzaba taka se poluchi w toq ziwot
A che trqbwa mnogo da cheta oshte si absoliutno praw i shte sym ti blagodaren ako kazesh i kade po tochno moga da procheta neshto za tezi tymni, cherni istori.
I do wsichki da znaqt, ako edin den izchezna, da znaete che sym slozil kraj na taq myka , taka che pomagajte ej.

Мъка си е ...

Щом искаш насока в живота, ето:

1. Най-добрата стартова книга за ASP е ASP Unleashed. За съжаление я има само на английски и в HTML формат. Някъде във форума имаше линк откъде можеш да я свалиш.
2. Когато се почустваш истински мъж и усетиш че си на "ти" с материята, купи си /и не съжалявай за парите/ "Професионално програмиране с ASP". Може да не съм цитирал съвсем точно заглавието, но книгата е дебела > 1000 стр., червена на цвят и е издадена от Soft Press. Струва около 35 лв., и си заслужава всяка стотинка.
3. Не се притеснявай да питаш тук. Няма човек дето да знае всичко. Има достатъчно хода които да помагат, пък сигурно е че един ден и ти ще даваш съвети на някой отчаян от живота.
4. Когато питаш, постарай се да си представиш как ти би отговорял на зададения от теб въпрос. Т.е. какво би искал да има във въпроса - код ли, по-точно описание на грешка, повече детайли около проблема и т.н. Така ще получиш отговор по-бързо и по-лесно.

чети и дишай по-леко

1 Blagodarq za 1, 2 i 3
2 Towa, kowto me mychi konkretno w momenta e slednoto:
Potrebitelite trqbwa da si izteglqt nqkakwi MSWord dokumenti, no towa da stawa s obiknowenno klikane na mishkata, a ne da rechem RightClick i posle SaveTargetAs... i dr. podobni.
Ej za towa e cqlata dandaniq, ne znam taka dostatychno qsen li e wyprosa.

Мъка си е ...

Въпроса е ясен, ясно е и какво те е подвело, хихихи...
http://support.microsoft.com/default.aspx?scid=KB;en-us;q193998
Значи там второто сиво поле обяснява как се създава въпросния обект с VB - това което на теб ти липсва.
А ето и място където нещата са обяснени как стават като се ползва готов обект. Бъди здрав.
http://www.4guysfromrolla.com/webtech/083100-1.shtml

чети и дишай по-леко

Sled kato dignah tolkowa shum neka da sloza i reshenieto i dano da e ot polza na nqkogo.

Samo che IE 4.01 i 5.5 imali bug i trygwali da zarezdat fajla (ako e poznat tip razbira se) towa go pishe na:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q267991
i
http://support.microsoft.com/default.aspx?scid=KB;en-us;q182315
kojto ne wqrwa da probwa, az lichno ne sym

a eto go i koda:


<%
response.contenttype="application/x-unknown"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & "filename.ext" & chr(34)

response.binarywrite getBinaryFile(server.mappath("filename.ext"))

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function

%>

Мъка си е ...