Re:fanta님 공지사항 고정하는거... 하지 해결 못했습니다.^^;;

[fanta]

어...일단 전에 써드린 쿼리문이 조금 잘못대서요...
sql = "select top & " & fix_num + 4 & " * from TBL_ANNOUNCE order by announcefix desc,AnnounceId desc"

이부분에서 top & " & fix_num + 4 &
top 뒤에 & 가 빠져야 대네요..^^;;
에러 없이 실행 댄다고 하시니까 그건 이미 찾으신 모양이네요..
어...문제는 폼에서 라디오버튼에 체크하고 넘어와도 값이 n 이 댄다는거 같은데요...전에 써놓으신거 보니까 폼에서 라디오버튼 이름을
announce 로 주셨다고 했는데 여기서 그 값을 받을때
uploadform("announcefix") 이렇게 받으시네요..
폼에서 보낸 값을 제대로 못받을땐 폼에서 준 name 값하고 리퀘스트 받을때 이름을 확인해보세요..
디비에 y,n 값이 확실하게 저장이 된다면 출력은 생각하고 계신대로 댈거 같네요.

--------------------- [원본 메세지] ---------------------
우선 메인페이지는 말씀하신데로 고쳐봤는데..에러없이 최근글 4개를 보여줍니다..
근데 고정은 안됩니다...
원인을 보아하니...
annoucefix라는 값이 넘어가는지 찍어봤습니다..response.write로
근데 라디오버튼을 체크하건 체크하지 않건 n값이 넘어오더라구여...
이리보구 저리보다가 결국 다시 도움 청합니다..

if UploadForm("AnnounceFix") = "" then
------------>체크안했을경우 널값대신 n으로 받기위해....
AnnounceFix = "n"
else
AnnounceFix = UploadForm("AnnounceFix")
end if

AnnounceTitle = UploadForm("AnnounceTitle")
AnnounceComment = UploadForm("AnnounceComment")
AnnounceUpdata = UploadForm("AnnounceUpdata")
AnnounceAttach = UploadForm("AnnounceAttach")
'AnnounceFix = UploadForm("AnnounceFix")


AnnounceComment = Replace(AnnounceComment, "'", "''")
'AnnounceComment = Replace(AnnounceComment, chr(32), " ")
'AnnounceComment = Replace(AnnounceComment, chr(13), "  ")



Response.Write "Announcefix : "& Announcefix
Response.End
.....파일업로드 부분 중략

set cmd = server.createobject("adodb.command")
cmd.activeconnection = strconnect
cmd.commandtext = "usp_Announce"
cmd.commandtype = adcmdstoredproc

set para = cmd.CreateParameter("@workindex",adchar,adParamInput,2,"W")
cmd.Parameters.Append para
set para = cmd.CreateParameter("@AnnounceId",adInteger,adParamInput,4,1)
cmd.Parameters.Append para
set para = cmd.CreateParameter("@title",advarchar,adParamInput,100,AnnounceTitle)
cmd.Parameters.Append para
set para = cmd.CreateParameter("@comment",adVarWChar,adParamInput,2147483647,AnnounceComment)
cmd.Parameters.Append para
set para = cmd.CreateParameter("@AnnounceUpdata",adVarWChar,adParamInput,128,AnnounceUpdata)
cmd.Parameters.Append para
set para = cmd.CreateParameter("@AnnounceAttach",adVarWChar,adParamInput,128,FileName)
cmd.Parameters.Append para
set para = cmd.CreateParameter("@Announcefix",adChar,adParamInput,1,"")
cmd.Parameters.Append para
set para = cmd.CreateParameter("@searchcontent",advarChar,adParamInput,64,"")
cmd.Parameters.Append para
set para = cmd.CreateParameter("@searchword",advarChar,adParamInput,128,"")
cmd.Parameters.Append para
set para = cmd.CreateParameter("@searchword2",advarChar,adParamInput,128,"")
cmd.Parameters.Append para


cmd.Execute



set para = nothing
set cmd = nothing

글쓰는 폼에서 넘어오는 페이지 소스입니다...